从Word中找到的文本中获取页码的Excel VBA

Sub GetPageNumberFromWord()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim wordRange As Object
    Dim pageNumber As Integer
    
    ' 创建Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    
    ' 打开Word文档
    Set wordDoc = wordApp.Documents.Open("C:\Path\To\Your\Word\Document.docx")
    
    ' 获取文档中的所有文本
    Set wordRange = wordDoc.Content
    
    ' 查找文本并获取页码
    With wordRange.Find
        .Text = "找到的文本"
        .Execute
        
        ' 获取页码
        If .Found Then
            pageNumber = wordRange.Information(wdActiveEndPageNumber)
            MsgBox "找到的文本在第 " & pageNumber & " 页。"
        Else
            MsgBox "未找到指定的文本。"
        End If
    End With
    
    ' 关闭Word文档
    wordDoc.Close
    
    ' 退出Word应用程序
    wordApp.Quit
    
    ' 释放对象
    Set wordRange = Nothing
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub