如何用vba实现word的查找替换?





word的查找替换功能强大,当需要批量实现多组字符的查找替换时,可以借助vba来循环实现。

word中的Find对象表示的就是word的查找替换对话框。它的官方帮助解释如下

Find对象

其中Find对象的Execute方法是执行查找动作的。如果找到了,它会返回True,而且自动地将Range对象重新定义为被找到的内容区域。

以下是一段循环执行查找命令,将含小数点的数字批量添加千分位分隔符。

以下是一段可以在word中使用的查找替换程序,当需要批量实现查找替换时,只需执行循环命令即可。

当要在excel中实现调用word的查找替换时,可以将上述代码修改为如下的形式:

 

发表评论