使用Excel VBA搜索Word文档中的每个页眉？

Sub SearchWordHeaders()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim wordSection As Object
    Dim wordHeader As Object
    Dim searchText As String
    
    ' 设置要搜索的文本
    searchText = "要搜索的文本"
    
    ' 创建Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    
    ' 打开Word文档
    Set wordDoc = wordApp.Documents.Open("Word文档路径")
    
    ' 遍历每个节（Section）
    For Each wordSection In wordDoc.Sections
        ' 遍历每个页眉（Header）
        For Each wordHeader In wordSection.Headers
            ' 搜索页眉中的文本
            If InStr(1, wordHeader.Range.Text, searchText, vbTextCompare) > 0 Then
                ' 找到匹配的页眉
                MsgBox "找到匹配的页眉：" & wordHeader.Range.Text
            End If
        Next wordHeader
    Next wordSection
    
    ' 关闭Word文档
    wordDoc.Close
    
    ' 退出Word应用程序
    wordApp.Quit
    
    ' 释放对象变量
    Set wordHeader = Nothing
    Set wordSection = Nothing
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub