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 下通过。