word用宏完成多个word文件的内容替换，可以同时替换多个关键词

可以使用Word的宏功能来批量替换多个Word文件中的关键词，下面是一个示例代码：

Sub ReplaceTextInMultipleFiles()
    Dim myPath As String, myFile As String
    Dim myText As String, myNewText As String
    Dim myDoc As Document
    
    '指定要替换的文本
    myText = "要替换的文本1|要替换的文本2|要替换的文本3"
    myNewText = "替换后的文本1|替换后的文本2|替换后的文本3"
    
    '指定要替换的文件路径
    myPath = "C:\Users\MyUser\Documents\"
    
    '获取文件夹内的所有Word文件
    myFile = Dir(myPath & "*.doc*")
    While myFile <> ""
        '打开Word文档
        Set myDoc = Documents.Open(FileName:=myPath & myFile, ReadOnly:=False)
        
        '执行文本替换
        Call ReplaceText(myDoc, myText, myNewText)
        
        '保存并关闭文档
        myDoc.Save
        myDoc.Close
        
        '获取下一个文件
        myFile = Dir
    Wend
    
    '提示处理完成
    MsgBox "处理完成！"
End Sub

Sub ReplaceText(myDoc As Document, myText As String, myNewText As String)
    Dim myArray() As String
    Dim i As Integer
    
    '将要替换的文本和替换后的文本分别存储在数组中
    myArray = Split(myText, "|")
    For i = 0 To UBound(myArray)
        '执行文本替换
        With myDoc.Content.Find
            .Text = myArray(i)
            .Replacement.Text = Split(myNewText, "|")(i)
            .Execute Replace:=wdReplaceAll
        End With
    Next i
End Sub

在上述代码中，`ReplaceTextInMultipleFiles`过程用来遍历指定文件夹内的所有Word文件，并依次打开、执行文本替换、保存并关闭文档。`ReplaceText`过程用来执行单个文档的文本替换操作，其中将要替换的文本和替换后的文本分别存储在数组中，并依次执行替换操作。

需要注意的是，在上述示例代码中，要替换的文本和替换后的文本使用了`|`分隔符进行分割，如果要替换的文本或替换后的文本中也包含了`|`字符，则需要使用其他字符或字符串进行分割。同时，由于文本替换操作可能会修改原有的文本格式，因此在执行文本替换操作之前，最好先备份原有的Word文件。