如何在DELPHI6中，向一WORD文件中的制定位置处插入一段话？

Question

WordDocument.Range.InsertAfter(...............);在
\Borland\Delphi5\Demos\Activex\Oleauto\SrvComp\Word 
目录下有例子。参考那个例子的Inset record按钮的代码。Delphi6我没有怎么用，大概也有。最后，如果我可以得分，也不要给我分，我不喜欢分。

Answer 1

插入其他文档，好像是insertfile

Answer 2

非常感谢各位，但是insertafter(......)只能在文件最后进行插入，不能在文件中间进行。insertfile（）各参数的具体数值能否告知？谢谢！

Answer 3

你首先自己完成调用word对象的一切东西
然后建立一个word文件，在其中需要加入文字的插入一个word的书签对象并改一个名字，然后程序代码中写入：
procedure TForm1.Button1Click(Sender: TObject);
var
  Word_Handle, Doc_Handle: OleVariant;
  BookMark_Name: string;
begin  try
    Word_Handle := GetActiveOleObject('Word.Application');
  except
    try
      Word_Handle := CreateOleObject('Word.Application');
    except
    end;
  end;
  Word_Handle.Visible := True;  Doc_Handle := Word_Handle.Documents.Add(Template := 'C:\1.DOT', NewTemplate := False);  try
    BookMark_Name := 'book1';
    Doc_Handle.Application.Selection.goto(What := wdGoToBook, Name := BookMark_Name);
    Doc_Handle.Application.Selection.Text := '这个是替换book1的结果';    BookMark_Name := 'book2';
    Doc_Handle.Application.Selection.goto(What := wdGoToBook, Name := BookMark_Name);
    Doc_Handle.Application.Selection.Text := '这个是替换book2的结果';
  except
  end;  Doc_Handle.SaveAs(FileName := '1.doc', FileFormat := wdFormatDocument, AddToRecentFiles := False);
end;即可

Answer 4

使用Selection对象，用法详见Word的VBA帮助。

Answer 5

参考
http://211.101.4.25/delphibbs/dispq.asp?lid=737517