以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]搜索word文档关键字并替换  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185341)

--  作者：PMC5332 --  发布时间：2023/2/17 11:15:00 --  [求助]搜索word文档关键字并替换 求助，搜索word文档里面的关键字并替换，请问用什么方法？

--  作者：有点蓝 --  发布时间：2023/2/17 11:23:00 --   Dim app As New MSWord.Application Dim doc = app.Documents.Open("d:\\123.doc") doc.Content.Find.Execute(FindText:="指定的关键字", replacewith:="替换的文字", Replace:=2) app.Visible = True