Word宏：多个字符自动替换

Word宏：多个字符自动替换

    第一步:启动Word，选择菜单中的“工具→宏→Visual Basic编辑器”命令，进入VBA编辑状态。

    第二步:在右侧“工程”窗口选中“Normal”项，再选择菜单中的“插入→模块”项，插入模块。注重，选择“Normal”项，制作的宏对所有文档有效;假如选择“Project(文档1)”项，则制作的宏仅适用于当前打开的文档。

    第三步:将下述代码输入到“normal-模块1”中(英文单引号“ '”及其后面的字符是对该行命令的注释):

    Sub 字符替换() '宏的名称为“字符替换”
      With ActiveDocument.Content.Find '在当前文档中进行查找
        .Text = "其它" '被替换的字符
        .Replacement.Text = "其他" '替换的字符
        .Execute Replace:=wdReplaceAll, Forward:=True '替换全部
        .Text = "异恶唑" '被替换的字符
        .Replacement.Text = "异噁唑" '替换的字符
        .Execute Replace:=wdReplaceAll, Forward:=True '替换全部
      End With
    End Sub

    说明：
    从上述代码中可以看出，只要在“With ActiveDocument.Content.Find”与“End With”间重复输入“.Text =”到“.Execute Replace:=wdReplaceAll, Forward:=True”这三行代码，增加或修改相应想要替换的字符，即可添加替换多个字符的宏代码，你可自行尝试增加宏语句。

    第四步:输入完成后，关闭VBA编辑窗口即可。接着用Word打开需要修改的文档，依次选择菜单中的“工具→宏→宏”项(或按“Alt F8”键)，打开“宏”对话框，选中相应宏：“字符替换”，点击“运行”按钮即可实现多个字符自动替换。