VBA에서 WORD 문서 지정 페이지의 섹션은 어떻게 제공됩니까?[

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.csdn.net/u/20090630/17/d570d428-6735-4b79-bf1f-980f70d0f91a.html

좋은 웹페이지 즐겨찾기