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

你好！你可以尝试以下VBA代码实现你的需求：

Sub BatchReplaceText()

    Dim sFolderPath As String
    Dim sFindText As String
    Dim sReplaceText As String
    Dim sFileName As String
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim rngStory As Object
    Dim lngJunk As Long
    Dim i As Long
    
    '获取文件夹路径
    sFolderPath = Range("C1").Value
    
    '获取被替换文本和替换后文本
    sFindText = Range("A1").Value
    sReplaceText = Range("B1").Value
    
    '创建Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = False
    
    '遍历文件夹下的所有docx文件
    sFileName = Dir(sFolderPath & "\*.docx")
    Do While sFileName <> ""
        
        '打开Word文档
        Set wdDoc = wdApp.Documents.Open(sFolderPath & "\" & sFileName)
        
        '遍历文档中的所有内容
        For Each rngStory In wdDoc.StoryRanges
            
            With rngStory.Find
                .Text = sFindText
                .Replacement.Text = sReplaceText
                .Wrap = 1 'wdFindContinue
                .Execute Replace:=2 'wdReplaceAll
            End With
            
        Next rngStory
        
        '关闭并保存Word文档
        wdDoc.Close SaveChanges:=True
        
        '获取下一个文件名
        sFileName = Dir()
        
    Loop
    
    '关闭并退出Word应用程序
    wdApp.Quit
    Set wdApp = Nothing
    
    MsgBox "替换完成！"
    
End Sub

你可以将以上代码复制到Excel VBA编辑器中的模块中，然后在Excel中输入被替换文本、替换后文本和文件夹路径，最后运行BatchReplaceText()宏即可。请注意，在运行该宏前，建议备份Word文档，以免误操作造成不可恢复的后果。