批量替换 word 宏

在处理大量的文件或文档时，我们常常会遇到需要批量替换某些内容的情况。这时候，使用Word宏是一个很好的解决方案。

首先，我们需要在Word中打开要替换的目标文件，并按下“Alt+F11”打开宏编辑器。接着，点击“插入”菜单，选择“模块”，在弹出的窗口中输入以下代码：

Sub BatchFindReplace()

Dim strFind As String

Dim strReplace As String

strFind = InputBox("请输入要查找的文本:", "查找并替换")

strReplace = InputBox("请输入要替换的文本:", "查找并替换")

If strFind = "" Or strReplace = "" Then

MsgBox "输入不能为空！"

Else

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strFind

.Replacement.Text = strReplace

.Forward = True

.Wrap = wdFindContinue

End With

Selection.Find.Execute Replace:=wdReplaceAll

End If

End Sub

在代码中，我们首先定义了两个变量strFind和strReplace，分别用于存放要查找和替换的文本。接着，使用InputBox函数来弹出两个对话框，让用户输入要查找和替换的文本。之后，利用Selection.Find对象来进行查找和替换操作，最后使用Execute方法，将所有匹配的文本全部替换。

最后，保存并关闭宏编辑器，回到目标文件中，按下“Alt+F8”打开宏对话框，选择刚才创建的宏并运行即可。

使用宏可以一次性替换多个文件，提高工作效率。但是在使用时，要注意确认要替换的文本是否正确，以免出现不必要的错误。