搜索用excel数据替换word文档中的多个单词

Sub ReplaceWordsFromExcel()
    Dim xlApp As Object
    Dim xlWorkBook As Object
    Dim xlWorkSheet As Object
    Dim i As Integer
    Dim wordList As Variant
    Dim oldWord As String
    Dim newWord As String

    ' 打开Excel文件
    Set xlApp = CreateObject("Excel.Application")
    Set xlWorkBook = xlApp.Workbooks.Open("C:\path\to\data.xlsx")
    Set xlWorkSheet = xlWorkBook.Worksheets(1)

    ' 读取Excel数据到数组
    wordList = xlWorkSheet.Range("A1:B" & xlWorkSheet.Cells(xlWorkSheet.Rows.Count, "A").End(xlUp).Row).Value

    ' 关闭Excel文件
    xlWorkBook.Close SaveChanges:=False
    xlApp.Quit

    ' 替换Word文档中的单词
    For i = 1 To UBound(wordList, 1)
        oldWord = wordList(i, 1)
        newWord = wordList(i, 2)
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = oldWord
            .Replacement.Text = newWord
            .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
End Sub