欢迎光临散文网 会员登陆 & 注册

VBA:结合查找替换批量检索关键词

2022-07-18 23:41 作者:ch_j  | 我要投稿

注意:因为此问题可以结合大学日常用得较多的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文件第一处符合要求的关键词已经按要求标记/替换完成。

五、代码源文件

链接: pan.baidu.com/s/1Z8vL08 提取码: ypkd 复制这段内容后打开百度网盘手机App,操作更方便哦

源文件二维码

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


VBA:结合查找替换批量检索关键词的评论 (共 条)

分享到微博请遵守国家法律