WOLE = Newobject('Word.Application')
WOLE.Documents.Open("H:\11.doC")
WOLE.visible=.t.

WOLE.ActiveDocument.select

WITH WOLE.Selection.find
.Forward = .t.
*.Wrap = wdFindStop
.Text ='中华人民共和国'
EndWith
写不下去了
&&查找word文档全文的一个行字串‘中华人民共和国’，并替换为’我是中国人‘
 

录制宏 看看

试试这样:
WOLE.Selection.Find.Execute("中华人民共和国",.F.,.T.,.F.,.F.,.F.,.T.,1,.T., "我是中国人" ,2)

另类方法，无需打开word：
cFile="H:\11.doC"
cWord1='中华人民共和国'
cWord2='我是中国人'
tFile="H:\22.doC"

cWord1=Strconv(cWord1,5)
cWord2=Strconv(cWord2,5)
Strtofile(Strtran(Filetostr(cFile),cWord1,cWord2,1,9999),tFile)

收到的鲜花

• sdta 于 2023-03-05 21:41 送鲜花  6朵   附言：好方法

妙！