遍历每个打开的 Word 文档并替换指定文字的 VBA 代码

您好！以下是遍历每个打开的 Word 文档并替换指定文字的 VBA 代码：

Sub ReplaceTextInAllOpenDocs()
    Dim doc As Document
    Dim strFindText As String
    Dim strReplaceText As String
    
    strFindText = "要替换的文字"
    strReplaceText = "替换为的文字"
    
    For Each doc In Documents
        With doc.Content.Find
            .Text = strFindText
            .Replacement.Text = strReplaceText
            .Wrap = wdFindContinue
            .Execute Replace:=wdReplaceAll
        End With
    Next doc
End Sub

在这个代码中，我们首先定义了要查找和替换的文本，然后使用 `For Each` 循环遍历打开的所有 Word 文档。对于每个文档，我们使用 `Find` 方法查找要替换的文本，并使用 `Replace` 方法将其替换为新的文本。

请注意，这个代码只能替换文本内容，如果您想替换其他类型的内容，比如表格或图片，需要使用不同的方法。