I
import
Unregistered / Unconfirmed
GUEST, unregistred user!
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('Cocuments.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 下通过。
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('Cocuments.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 下通过。