VBA 怎么得到WORD文档指定页处于第几节？[

gisoracle

于 2009-09-13 10:33:00 发布

阅读量1.9k

点赞数

分类专栏： office 文章标签： vba 文档 function vb 测试

本文链接：https://blog.youkuaiyun.com/gisoracle/article/details/4547736

版权

office 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一个VBA函数，用于确定Word文档中指定页面所在的节编号。通过使用ActiveDocument.GoTo方法定位到特定页，再通过Sections属性获取该页所在的节编号。此外，还提供了一个测试子程序来验证函数的正确性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

VBA 怎么得到WORD文档指定页处于第几节？

Function SectionNumber(PageNumber As Long) As Long
Dim myRange As Range
Set myRange = ActiveDocument.GoTo(what:=wdGoToPage, which:=wdGoToAbsolute, Count:=PageNumber)
SectionNumber = myRange.Sections(1).Index
End Function

可用以下过程进行测试：

VB code

   
   
    
    
    
    Sub
    
     Test()
    
    
    Dim
    
     lCount 
    
    As
    
     
    
    Long
    
    , i 
    
    As
    
     
    
    Long
    
    
    lCount 
    
    =
    
     ActiveDocument.ActiveWindow.Panes(
    
    1
    
    ).Pages.Count
    
    
    For
    
     i 
    
    =
    
     
    
    1
    
     
    
    To
    
     lCount
        Debug.Print 
    
    "
    
    Page: 
    
    "
    
     
    
    &
    
     i 
    
    &
    
     
    
    "
    
    ,   Section: 
    
    "
    
     
    
    &
    
     SectionNumber(i)
    
    
    Next
    
     i

   
   
    
    来自：http://topic.youkuaiyun.com/u/20090630/17/d570d428-6735-4b79-bf1f-980f70d0f91a.html