你好，excel专家，我想设计VBA语言，用excel批量替换多个word文档。打开excel，在A列多个单元格中输入被替换文字，在对应B列多个单元格中输入替换后文字，在C1单元格输入一个文件路径，运行VBA，将C1单元格的文件路径下所有docx格式的word文档进行批量替换。

你好，要实现你的需求，可以使用下面的VBA代码来批量替换多个word文档：

Sub ReplaceTextInWord()
    '定义变量
    Dim objWord As Object
    Dim objDoc As Object
    Dim objRange As Object
    Dim strFolder As String
    Dim strFind As String
    Dim strReplace As String
    
    '获取文件路径和替换文字
    strFolder = Range("C1").Value
    strFind = ""
    strReplace = ""
    
    '检查文件路径是否存在
    If Dir(strFolder, vbDirectory) = "" Then
        MsgBox "文件路径不存在，请重新输入", vbCritical, "提示"
        Exit Sub
    End If
    
    '创建Word对象
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = False
    
    '循环处理每个word文档
    strFile = Dir(strFolder & "\*.docx")
    Do While strFile <> ""
        Set objDoc = objWord.Documents.Open(strFolder & "\" & strFile)
        Set objRange = objDoc.Content
        
        '执行替换操作
        With objRange.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = strFind
            .Replacement.Text = strReplace
            .Execute Replace:=2
        End With
        
        '保存并关闭当前Word文档
        objDoc.Save
        objDoc.Close
        strFile = Dir()
    Loop
    
    '释放对象
    Set objRange = Nothing
    Set objDoc = Nothing
    objWord.Quit
    Set objWord = Nothing
    
    MsgBox "批量替换完成！", vbInformation, "提示"
End Sub

你只需要将上述代码复制到Excel的VBA编辑器中，并更改`strFind`和`strReplace`为你需要替换的文字即可。同时，在Excel中输入文件路径后，点击运行即可完成批量替换。