以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  word查找替换  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=144125)
--  作者：fntfgz
--  发布时间：2019/12/11 15:09:00
--  word查找替换
Dim app As New MSWord.Application
Dim doc = app.Documents.Open("D:\\02collectdata\\课程文章\\wj.doc")
app.Selection.Find.ClearFormatting
app.Selection.Find.Replacement.ClearFormatting
With app.Selection.Find
    .Text = "aaa"
    .Replacement.Text = "1234566"
    .Forward = True
    .Wrap = MSWord.WdFindWrap.wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
app.Selection.Find.Execute( MSWord.WdReplace.wdReplaceAll)
app.Visible = True

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:wj.zip



老师，我想用word的查找替换，但是运行上面命令后没有任何变化
[此贴子已经被作者于2019/12/11 15:10:25编辑过]
--  作者：有点蓝
--  发布时间：2019/12/11 15:26:00
--  
app.Selection.Find.Execute(Replace:= MSWord.WdReplace.wdReplaceAll)