- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]word VBA怎么实现根据数据表实现查找替换，下面的代码怎么转换？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119974)
-- 发布时间：2018/6/5 9:50:00
-- [求助]word VBA怎么实现根据数据表实现查找替换，下面的代码怎么转换？
With Selection.Find
.ClearFormatting
.Text = "hi"
.Replacement.ClearFormatting
.Replacement.Text = "hello"
.Execute Replace:=wdReplaceAll,
Forward:=True, _
Wrap:=wdFindContinue
End With
-- 发布时间：2018/6/5 9:56:00
--
Dim app As New MSWord.Application
try
Dim fileName = "d:\\test.doc"
Dim doc = app.Documents.Open(fileName)
app.Selection.Find.Text = "[第一列]"
app.Selection.Find.Replacement.ClearFormatting()
app.Selection.Find.Replacement.Text = "123456789"
app.Selection.Find.Execute(Replace:=MSWord.WdReplace.wdReplaceAll)
app.visible = True
catch ex As exception
msgbox(ex.message)
app.Quit
finally
End try
-- 发布时间：2018/6/5 10:15:00
--
此主题相关图片如下：tim截图20180605101435.png
，感谢，但是运行的时候出现异常
-- 发布时间：2018/6/5 10:19:00
--
此主题相关图片如下：tim截图20180605101435.png
出现了异常
-- 发布时间：2018/6/5 10:59:00
--
代码我测试正常。你安装了ms office了没有？
贴出你写的代码，以及上传你操作的word文件。
-- 发布时间：2018/6/5 11:22:00
--
只安装了wps
-- 发布时间：2018/6/5 11:43:00
--
以下是引用yjm789000在2018/6/5 11:22:00的发言：
只安装了wps
只安装了wps
试试安装一下ms office，再测试。
2楼代码肯定没问题的。