使用Excel VBA查找/替换Word文档页脚中的文本

Sub FindReplaceInWordFooter()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdSec As Object
    Dim wdFooter As Object
    Dim findText As String
    Dim replaceText As String
    
    ' 设置要查找和替换的文本
    findText = "要查找的文本"
    replaceText = "要替换的文本"
    
    ' 创建Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    
    ' 打开Word文档
    Set wdDoc = wdApp.Documents.Open("Word文档路径")
    
    ' 遍历文档的每个节
    For Each wdSec In wdDoc.Sections
        ' 遍历每个节的页脚
        For Each wdFooter In wdSec.Footers
            ' 查找并替换文本
            With wdFooter.Range.Find
                .Text = findText
                .Replacement.Text = replaceText
                .Wrap = 1 ' wdFindContinue
                .Execute Replace:=2 ' wdReplaceAll
            End With
        Next wdFooter
    Next wdSec
    
    ' 保存并关闭Word文档
    wdDoc.Save
    wdDoc.Close
    
    ' 退出Word应用程序
    wdApp.Quit
    
    ' 释放对象变量
    Set wdFooter = Nothing
    Set wdSec = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub