VBA:结合查找替换批量检索关键词
注意:因为此问题可以结合大学日常用得较多的Excel,作为存储多个关键词的载体。此文便在Excel中写代码,也方便操作。
一、问题假设
1.待处理文件
假如现在有一个文件夹,里面有一篇Word文档(右);需要检索的词记录在相同文件夹下的另一个Excel工作簿中的Sheet1这张表格的A列(左,第一行是标题,不参与检索),即查找的内容,替换的内容为第B列,C列可以选择是否用通配符替换。

2.假设处理要求
需要将上图所有Word文件中包含Excel表格里的关键词所地方左右加上中括号。
二、关键思路
1.遍历Excel单元格
遍历存放多个关键词的Excel表格“关键词.xlsx”的Sheet1的A列的单元格。
2.Word中查找替换
每个单元格的值作为Word查找的内容,在Word中将查找到的区域标记在中括号内。
参数设置:

这里前面两个关键词用的是不勾选通配符替换,第三个是通配符替换,有时写法上可能稍有差别。
关于Word(通配符)替换的内容,可以关注我的专栏【Word(通配符)替换】,了解之前收录的更多典型示例。
三、参考代码
四、操作步骤及效果
1.步骤
(1)准备
打开Excel工作簿【关键词.xlsm】,同时关闭掉需要处理的Word文件
(2)开始运行
点击Excel表格中的【执 行】或者在代码主程序范围内点击运行按钮

(3)选择文件
按下图所示:选择要处理的Word文件(可多选),点击【打开】

(4)点击确定,处理完成

注意:因为有一个文件在测试的时候处理了,此处我只选择了2个文件处理,是没有问题的。
2.验证
打开刚刚处理过的Word文件:

发现每一个Word文件第一处符合要求的关键词已经按要求标记/替换完成。
五、代码源文件
链接: https://pan.baidu.com/s/1Z8vL08TljVpBlbAYq_Ly1g?pwd=ypkd 提取码: ypkd 复制这段内容后打开百度网盘手机App,操作更方便哦

打开文件,在表格中填好查找替换相关参数,然后直接点击操作即可。