【将一个word中搜索到的N个相同的词批量替换为不同的N个新词】

在 Microsoft Word 中，如果你希望对每个匹配的词进行不同的替换，你需要手动进行多次操作，这可能会比较繁琐。这里将教您如何使用宏来自动执行替换文本的操作。以下是一个简单的宏示例，用于将文档中的n个“旧词”替换为n个不同的“新词”：

1. 打开 Microsoft Word，并打开要替换文本的文档。
2. 按 Alt + F11 键打开 VBA 编辑器。
3. 在 VBA 编辑器中，选择“插入”选项卡，然后选择“模块”。
4. 将宏代码复制并粘贴到新模块中。
5. 按 F5 键运行宏。

代码示例： 

 Sub ReplaceMultipleTextWithList()
    ' 要查找的文本和替换的列表
    Dim oldText As String
    Dim newTextList As Variant
    Dim i As Integer
      
    oldText = "xxxx" ' 需要被替换的文本
    newTextList = Array("新词1", "新词2", "新词3", "新词4", "新词5", "新词6", "新词7") ' 替换的列表
      
    Selection.Find.Wrap = wdFindContinue
    
    ' 遍历每个单词并替换匹配的文本
    For i = 0 To UBound(newTextList)
        With Selection.Find
            .Text = oldText ' 要查找的文本
            .Forward = True
            .Wrap = wdFindContinue
            .MatchCase = False
            .MatchByte = True
            .MatchWildcards = False
            .MatchWholeWord = False
            .MatchFuzzy = False
            .Replacement.Text = newTextList(i) ' 要替换的文本
            '.Execute Replace:=wdReplaceAll, Forward:=True, _
                Wrap:=wdFindContinue
        End With
        With Selection.Find
            .Style = ""
            .Highlight = wdUndefined
            With .Replacement
                .Style = ""
                .Highlight = wdUndefined
            End With
        End With
        Selection.Collapse Direction:=wdCollapseStart
        Selection.Find.Execute Replace:=wdReplaceOne
        Selection.Collapse Direction:=wdCollapseEnd
        Selection.Find.Execute Replace:=wdReplaceNone
        Selection.Find.Replacement.Text = ""
        
    Next i
End Sub