继续散金-高手请入，up者5分！

Question

1.如何在CreateOleObjects方式，以子窗体的形式打开word呢？
2.查找到word中标签如<#name#>后，如何获取此标签的range?(234-240)

Answer 1

http://www.delphiun.com/downfile.asp?ID=294
下载看看

Answer 2

UP，UP，我UP两次，是不是有10分呀？祝大家快乐！！！在新的一年里发财发财发大财

Answer 3

var
  ExcelObj, Excel, WorkBook, Sheet: OleVariant;
begin
  try
    ExcelObj := CreateOleObject('Excel.Sheet');
    Excel := ExcelObj.Application;
    Excel.Visible := Visible ;
    WorkBook := Excel.Workbooks.Add ;
    Sheet:= WorkBook.Sheets[1];
  except
    MessageBox(GetActiveWindow,'无法调用Mircorsoft Excel! '+chr(13)+chr(10)+
      '请检查是否安装了Mircorsoft Excel。','提示',MB_OK+MB_ICONINFORMATION);
    Screen.Cursor:=OldCursor;
    Exit;
  end;

Answer 4

这个是EXCEL，WORD应该差不多吧