word批量替换文字怎么操作宏

1.求个WORD 批量处理宏

这个其实非常简单，编几行代码便可瞬间完成，根本不用一个文件一个文件地来，全部批量自动化操作并保存关闭。

以Word2003为例。Word2007类似。

首先你可以用Word打开所有的DOC文档，然后菜单“工具---宏”，输入宏名：全部文档小五号，在“宏的位置”选择“Norma t（共用模板），再点“创建”，把以下代码复制粘贴到里面就可以了。 不论你是打开20还是50个文档，可以说是瞬间完成。

本方法是通过一个循环遍历所有打开的文档进行操作。 将变量doc定义为一个文档类型document，而Documents代表所有打开的文档，然后通过For Each循环遍历所有打开的文档，全选每一个文档并将字体设为9号字（即小五号）。

为了以后方便使用，你可以选择菜单“工具---自定义”，点“命令”选项卡，在左边的“类别”中找到“宏”，将右边的这个宏命令拖放到工具栏，以后点一下工具栏这个按钮就可以了，还可以点击这个窗口下边的“键盘”按钮，找的方法同上，给这个宏命令设定一个快捷方式。 以后想用时绝对超级方便快捷。

是否保存或既保存并关闭由你自己决定（修改代码即可），如果某个文档是新建的文档且从未保存过文件名，则弹出“另存为”对话框，如果全部是打开的文档，则自动保存并全部关闭。 Sub 全部文档小五号（） On Error Resume Next Dim doc As Document For Each doc In Documents With doc 。

Activate 。Application。

Selection。WholeStory '全选 。

Application。Selection。

Font。Size = 9 '字体大小设为9号（即小五号） 。

Save '保存文档 。Close '关闭文档 End With Next doc End Sub 。

2.Word文档中文字替换批量操作

例子 第一次替换 第二次替换 第三次替换 结果 假设最多3个括号，那么通过3次替换就可以完成。

（如果4个就4次） 第一次替换： 查找：（（[！^13）]@))([!^13]@)(([!^13)]@))([!^13]@)(([!^13)]@))([!^13]@)^13 替换：（）\2()\4()\6【正确答案】\1|\3|\5^13 第二次替换： 查找：（（[！^13）]@))([!^13]@)(([!^13)]@))([!^13]@)^13 替换：（）\2()\4【正确答案】\1|\3^13 第三次替换： 查找：（（[！^13）]@))([!^13]@)^13 替换：（）\2【正确答案】\1^13。