如何在Word中跨多个文件搜索和替换？

Sub CommandButton1_Click()

Dim xFileDialog As FileDialog, GetStr(1 To 100) As String

Dim xFindStr As String

Dim xReplaceStr As String

Dim xDoc As Document

On Error Resume Next

Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)

With xFileDialog

    .Filters.Clear

    .Filters.Add "All WORD File ", "*.docx", 1

    .AllowMultiSelect = True

    i = 1

    If .Show = -1 Then

        For Each stiSelectedItem In .SelectedItems

            GetStr(i) = stiSelectedItem

            i = i + 1

        Next

        i = i - 1

    End If

    Application.ScreenUpdating = False

    xFindStr = InputBox("Find what:", "Kutools for Word", xFindStr)

    xReplaceStr = InputBox("Replace with:", "Kutools for Word", xReplaceStr)

    For j = 1 To i Step 1

        Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True)

        Windows(GetStr(j)).Activate

        Selection.Find.ClearFormatting

        Selection.Find.Replacement.ClearFormatting

        With Selection.Find

            .Text = xFindStr 

            .Replacement.Text = xReplaceStr 

            .Forward = True

            .Wrap = wdFindAsk

            .Format = False

            .MatchCase = False

            .MatchWholeWord = False

            .MatchByte = True

            .MatchWildcards = False

            .MatchSoundsLike = False

            .MatchAllWordForms = False

        End With

        Selection.Find.Execute Replace:=wdReplaceAll

        Application.Run macroname:="NEWMACROS"

        ActiveDocument.Save

        ActiveWindow.Close

    Next

    Application.ScreenUpdating = True

End With

MsgBox "Operation end, please view", vbInformation

End Sub