如何使用VBA在多个Word文档中查找和替换文本

Sub FindAndReplaceText()
    Dim folderPath As String
    Dim fileExtension As String
    Dim searchText As String
    Dim replaceText As String
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim fileName As String
    
    ' 设置要查找和替换的文本
    searchText = "要查找的文本"
    replaceText = "要替换的文本"
    
    ' 设置要处理的文件夹路径和文件扩展名
    folderPath = "C:\Documents"
    fileExtension = "*.docx" ' 可根据实际情况修改为 *.doc 或其他扩展名
    
    ' 创建 Word 应用程序对象
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = True ' 可选，用于显示 Word 窗口
    
    ' 循环处理文件夹中的每个 Word 文档
    fileName = Dir(folderPath & "\" & fileExtension)
    Do While fileName <> ""
        ' 打开 Word 文档
        Set wordDoc = wordApp.Documents.Open(folderPath & "\" & fileName)
        
        ' 执行查找和替换操作
        With wordDoc.Content.Find
            .Text = searchText
            .Replacement.Text = replaceText
            .Execute Replace:=wdReplaceAll ' wdReplaceAll 表示替换所有匹配项
        End With
        
        ' 保存并关闭当前文档
        wordDoc.Save
        wordDoc.Close
        
        ' 处理下一个文件
        fileName = Dir
    Loop
    
    ' 关闭 Word 应用程序
    wordApp.Quit
    Set wordApp = Nothing
    
    ' 显示处理完成的消息
    MsgBox "在多个 Word 文档中成功查找和替换文本。"
End Sub