如何实现在word文档中定位、查找某个字符串并替换之？(200分)

L

Larruping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #1

[]如题

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #2

你看一下这个例子：
http://www.djpate.freeserve.co.uk/D5Word.zip

 

P

pt_email

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #3

给你作参考：
var
MsWord:Variant;
……
try
MSWord := CreateOleObject('Word.Application');
except
Application.MessageBox('Word 应用软件存在问题！请检查后再运行。','用户提示',MB_OK);
exit;
end;
MsWord.Visible := True;
MsWord.Selection.Find.Execute ( FindText:= '你要找的字符串', ReplaceWith:= '你要替换的字符串',
Replace:= 1 ,MatchWholeWord := TRUE );

 

L

Larruping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #4

多人接受答案了。

 

自

自由自在

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #5

最后一句好象不对哟

 

L

Larruping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #6

最后可以阿^_^