在MS Excel的列表中查找和替换多个MS Word :代码不适用于嵌入表

Sub FindAndReplaceWords()
    Dim ws As Worksheet
    Dim rng As Range
    Dim findList As Variant
    Dim replaceList As Variant
    Dim i As Long
    
    ' 设置要查找和替换的单词列表
    findList = Array("apple", "banana", "orange")
    replaceList = Array("fruit1", "fruit2", "fruit3")
    
    ' 设置要进行查找和替换的工作表和范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rng = ws.Range("A1:A10")
    
    ' 循环遍历列表中的每个单词，并在范围内进行查找和替换
    For i = LBound(findList) To UBound(findList)
        rng.Replace What:=findList(i), Replacement:=replaceList(i), LookAt:=xlWhole, MatchCase:=False
    Next i
End Sub