求助,在VFP中，查找word文档全文的一个行字串‘中华人民共和国’，并替换为’我是中国人‘

liunis 发布于 2023-03-05 14:16， 903 次点击

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文档全文的一个行字串‘中华人民共和国’，并替换为’我是中国人‘

5 回复

sdta2023-03-05 15:16

录制宏看看

dglhz2023-03-05 15:43

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

shizi02023-03-05 21:22

另类方法，无需打开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)

schtg2023-03-06 07:06

回复 4楼 shizi0

妙！

aqyejun2023-03-06 10:45