word宏替换指定内容

可以使用 Word 的宏来批量替换指定内容。下面是一个简单的示例宏代码：

Sub ReplaceText()
    Dim MyText As String
    MyText = InputBox("请输入要查找的文本：")
    If MyText = "" Then Exit Sub
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = MyText
        .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
    MsgBox "替换完成！"
End Sub

在这个示例宏中，我们先让用户输入要查找的文本，然后使用 `Selection.Find` 方法来查找该文本。我们可以通过修改 `.Replacement.Text` 属性来设置替换后的文本。最后，我们调用 `Selection.Find.Execute Replace:=wdReplaceAll` 方法来执行替换操作，并弹出一个消息框告知用户替换完成。

你可以将上面的代码复制到 Word 的宏编辑器中，然后保存并运行该宏。注意，在运行宏之前，建议先备份一下 Word 文档，以防意外情况发生。