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

好的，您可以先确保每个word文档都已经打开，然后可以使用以下VBA代码来替换文档中指定的不同文字：

Sub ReplaceMultipleText()

Dim doc As Document
Dim findText As Variant
Dim replaceText As Variant

'指定要替换的文字和替换后的文字
findText = Array("Text1", "Text2", "Text3")
replaceText = Array("NewText1", "NewText2", "NewText3")

'循环遍历所有打开的文档
For Each doc In Documents
    '循环遍历要替换的文字和替换后的文字
    For i = 0 To UBound(findText)
        '使用Selection对象查找和替换文字
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = findText(i)
            .Replacement.Text = replaceText(i)
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next i
Next doc

End Sub

您可以将上面的代码复制到VBA编辑器中，然后按下F5键运行它。请注意，这段代码将会同时替换所有打开的word文档中所有匹配的文字，所以请确保您已经备份了这些文档，以防万一。