word用宏完成自动替换

可以使用 Word 中的宏来实现自动替换。下面是一个简单的示例：

1. 打开 Word 文档并按下 `Alt + F11` 打开 Visual Basic 编辑器。
2. 在左侧的项目窗口中，选择你的文档并在“模块”文件夹中创建一个新模块。
3. 在新模块中编写以下代码：

Sub ReplaceText()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "替换前的文本"
        .Replacement.Text = "替换后的文本"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

4. 将“替换前的文本”替换为你想要自动替换的文本，将“替换后的文本”替换为你想要替换为的文本。
5. 保存宏并关闭 Visual Basic 编辑器。
6. 在 Word 文档中按下 `Alt + F8` 打开宏窗口。
7. 选择你的宏并点击“运行”按钮。

这个宏将会自动替换你指定的文本。如果你需要替换多个文本，可以将代码复制粘贴并多次编辑。