如何用VBA获取Word文档中节的起止页码？代码异常求助

我有一份1000页、包含约150个节的Word文档，每个节内有一个表格，需要记录各节的起始和结束页码。我尝试了以下VBA代码：

Sub section()
    Dim doc As Word.Document
   
    Set wdApp = New Word.Application
    wdApp.Visible = True
    
    Dim wdDoc As Word.Document: Set wdDoc = wdApp.Documents.Open("filepath\file.docx")
    Set secRange = wdDoc.Sections(4).Range
    secRange.Collapse wdCollapseStart
    secStart = secRange.Information(wdActiveEndPageNumber)
    secRange.Collapse wdCollapseEnd
    secEnd = secRange.Information(wdActiveEndPageNumber)
    MsgBox secStart & " - " & secEnd
    wdDoc.Save
    wdDoc.Close
    wdApp.Quit
    
End Sub

但获取的节起始和结束页码相同，且并非正确的起止页码，例如某节跨63至72页，却返回65。请问我哪里出错了？有没有其他实现方法？

错误原因分析 #

• 使用wdCollapseEnd后，光标会定位到节末尾的分节符之后，这个位置通常和节内容的最后一页处于同一页，甚至会因分节符的排版特性，导致获取的页码和起始页混淆。
• 直接对Sections(n).Range进行折叠操作，没有排除分节符的干扰——分节符本身不占内容，但会影响Information(wdActiveEndPageNumber)的判断结果。

正确的VBA实现方法 #

方法1：排除分节符干扰，遍历所有节获取页码

Sub GetSectionPageNumbers()
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim sec As Word.Section
    Dim startRange As Word.Range, endRange As Word.Range
    Dim startPage As Long, endPage As Long
    Dim resultText As String
    
    Set wdApp = New Word.Application
    wdApp.Visible = True
    Set wdDoc = wdApp.Documents.Open("filepath\file.docx")
    
    resultText = "各节起止页码：" & vbCrLf
    
    For Each sec In wdDoc.Sections
        ' 获取节的起始页码：定位到节内容的第一个字符
        Set startRange = sec.Range
        startRange.Collapse wdCollapseStart
        startPage = startRange.Information(wdActiveEndPageNumber)
        
        ' 获取节的结束页码：定位到节内容的最后一个字符（跳过分节符）
        Set endRange = sec.Range
        endRange.End = endRange.End - 1 ' 退回到分节符之前的最后一个内容字符
        endPage = endRange.Information(wdActiveEndPageNumber)
        
        resultText = resultText & "第" & sec.Index & "节：" & startPage & " - " & endPage & vbCrLf
    Next sec
    
    MsgBox resultText
    wdDoc.Close SaveChanges:=False ' 根据实际需求调整是否保存
    wdApp.Quit
    
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

方法2：利用节内表格直接获取页码（更高效）

因为每个节对应一个表格，可直接通过表格的范围来获取所属节的起止页码，避免分节符的干扰：

Sub GetSectionPageViaTable()
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim tbl As Word.Table
    Dim startPage As Long, endPage As Long
    Dim resultText As String
    
    Set wdApp = New Word.Application
    wdApp.Visible = True
    Set wdDoc = wdApp.Documents.Open("filepath\file.docx")
    
    resultText = "各节表格对应页码：" & vbCrLf
    
    For Each tbl In wdDoc.Tables
        ' 获取表格所在节的起始页码
        startPage = tbl.Range.Information(wdActiveEndAdjustedPageNumber)
        ' 获取表格的结束页码
        endPage = tbl.Range.Information(wdActiveEndPageNumber)
        
        resultText = resultText & "表格" & tbl.Index & "（对应第" & tbl.Range.Sections(1).Index & "节）：" & startPage & " - " & endPage & vbCrLf
    Next tbl
    
    MsgBox resultText
    wdDoc.Close SaveChanges:=False
    wdApp.Quit
    
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

内容的提问来源于stack exchange，提问作者Subramanian