写一个VBA word宏，能够实现多个word文档替换文字的功能

下面是一个示例代码，可以实现在多个 Word 文档中替换文字的功能：

Sub ReplaceTextInMultipleDocs()

Dim strOldText As String
Dim strNewText As String
Dim strPath As String
Dim strFile As String
Dim wdDoc As Document

strOldText = InputBox("请输入需要替换的旧文字：")
strNewText = InputBox("请输入替换成的新文字：")
strPath = InputBox("请输入文件夹路径：")

strFile = Dir(strPath & "\*.docx")

While strFile <> ""
    Set wdDoc = Documents.Open(FileName:=strPath & "\" & strFile)
    With wdDoc.Content.Find
        .Text = strOldText
        .Replacement.Text = strNewText
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll
    End With
    wdDoc.Close SaveChanges:=True
    strFile = Dir()
Wend

End Sub

将以上代码粘贴到 Word 的 Visual Basic 编辑器中，然后运行宏，它将询问你输入需要替换的旧文字、替换成的新文字和文件夹路径。代码将在该文件夹中的所有 `.docx` 文档中替换该文字。