用Delphi控制替换Word文章内容，100分请教，晓玫有礼了。

Question

使用delphi5比较方便.用WordApplication和WordDocument
D:\Program Files\Borland\Delphi5\Demos\Activex\Oleauto\SrvComp\Word
有例子.

Answer 1

同意kxy的意见，WordApplication基本上就该够用了。我用过，它封装了Word的Application接口（OLE）

Answer 2

最好还是用WORD本身的功能。也可以通过接口调用WORD 的替换功能。

Answer 3

问题刚提出来，大家就这么积极的帮我回答问题，让初来乍到就感受到CSDN的热情。
真的多谢各位大哥、大姐帮忙。
我做一下试验，如有问题，还要麻烦大家噢。以后我会经常到这里来的。  晓玫

Answer 4

看看Word Basic帮助就会了。

Answer 5

源程序我这里有
uses ComObj ;
procedure TForm1.Button1Click(Sender: TObject);
var
  vWord,vDoc,vRange : Variant ;
  sText,sReplace : string ;
  lReturn : Boolean ;
begin
  sText := 'ABCDEFG' ;  //原文字串
  sReplace := 'GFEDCBA' ; //新字串
  vWord := CreateOleObject('Word.Application') ;//创建Word线程
  try
    //打开要操作的文件
    vDoc := vWord.Documents.Open('C:\My Documents\AAAc.Doc');
    vDoc.Select ;  //选取中整个文档
    vRange := vDoc.Range ; //替换范围
    lReturn := True ;
    while lReturn do
    begin  //找到并替代成功则返回 True    共11个参数
      lReturn := vDoc.Range.Find.Execute(sText,,,,,,,,,sReplace,True) ;
    end ;
  finally
    vDoc.Close(True) ; //关闭文并保存
    vWord.Quit(False) ; //退出Word
  end ;
end;
Delphi 3 下通过。