替换打开的多个word文档中指定的文字的vba代码

您好！以下是替换打开的多个 Word 文档中指定文字的 VBA 代码：

Sub ReplaceTextInMultipleDocs()
    Dim strFolderPath As String
    Dim strFindText As String
    Dim strReplaceText As String
    Dim strFileName As String
    Dim doc As Document
    
    strFolderPath = "替换的文件夹路径"
    strFindText = "要替换的文字"
    strReplaceText = "替换为的文字"
    
    strFileName = Dir(strFolderPath & "\*.doc*")
    
    Do While strFileName <> ""
        Set doc = Documents.Open(strFolderPath & "\" & strFileName)
        With doc.Content.Find
            .Text = strFindText
            .Replacement.Text = strReplaceText
            .Wrap = wdFindContinue
            .Execute Replace:=wdReplaceAll
        End With
        doc.Close SaveChanges:=True
        strFileName = Dir
    Loop
End Sub

在这个代码中，我们首先定义了要替换的文件夹路径、要查找和替换的文本。然后使用 `Dir` 函数获取文件夹中所有的 Word 文档，并使用 `Do While` 循环遍历每个文档。对于每个文档，我们使用 `Open` 方法打开它，并使用 `Find` 方法查找要替换的文本，并使用 `Replace` 方法将其替换为新的文本。最后关闭文档并保存更改。

请注意，这个代码只能替换文本内容，如果您想替换其他类型的内容，比如表格或图片，需要使用不同的方法。同时，请注意在使用该代码之前备份您的文件，以免意外损失数据。