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

在MS Excel中，可以使用VBA（Visual Basic for Applications）编写代码来实现在列表中查找和替换多个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

上述代码中，我们首先定义了要查找和替换的单词列表，即findList和replaceList。然后，我们设置了要进行查找和替换的工作表和范围，即ws和rng。接下来，我们使用For循环遍历列表中的每个单词，并使用rng.Replace方法在范围内进行查找和替换。

这段代码可以在MS Excel中的VBA编辑器中运行，具体步骤如下：