[已解决]如何使用WordVBA遍历所有页面？

jsyzzym

想用VBA遍历WORD文档中的所有页面，取得每个页面的横、竖版式，找了一些资料，写了一段脚本，但只能显示光标所在页的版式，请求各位知道的朋友给予帮助，不胜感谢！

1. Sub test()
   
2.     Dim nPageC As Integer
   
3.     Dim i As Integer
   
4.     nPageC = ActiveDocument.ActiveWindow.Panes(1).Pages.Count
   
5.     Debug.Print "共" & nPageC & "页"
   
6.     For i = 1 To nPageC
   
7.         With ActiveDocument.ActiveWindow.Panes(1)
   
8.             .Pages(i).Application.ActiveDocument.Activate
   
9.             Debug.Print .Pages(i).Application.Selection.Sections.PageSetup.Orientation
   
10.         End With
    
11.     Next
    
12. End Sub

复制代码

谢谢楼下的帮助，已经解决了这个问题，顺附上遍历所有页面的代码，以供需要之人使用，再次感谢楼下的无私帮助：

1. Sub AllPage_InsCustomPageNum()
   
2.     Dim nPageC As Integer
   
3.     Dim i As Integer
   
4.     'ActiveDocument.Content.Information (wdActiveEndAdjustedPageNumber)
   
5.     nPageC = ActiveDocument.ActiveWindow.Panes(1).Pages.Count
   
6.     For i = 1 To nPageC
   
7.         ActiveDocument.GoTo(wdGoToPage, wdGoToAbsolute, i).Select
   
8.         If Selection.PageSetup.Orientation = wdOrientLandscape Then Call InsCustomPageNum
   
9.     Next
   
10. End Sub

复制代码

loquat

在PageSetup里面，逐页遍历没有意义，逐节遍历吧。
Dim aSection As Section
For each aSection in activedocument.sections
    with aSection.Pagesetup
        debug.print .Orientation
    end with
next

jsyzzym

谢谢楼上的回复，逐页遍历主要是要往页面上添加东西，请问有好的办法，谢谢！

loquat

jsyzzym 发表于 2014-5-5 16:59
谢谢楼上的回复，逐页遍历主要是要往页面上添加东西，请问有好的办法，谢谢！

看你需要往哪里添加。比如页首，页尾。
.Goto(wdgotopage,wdgotoabsolute,aPageNum).Start
这样可以获取第aPage页页首，换成aPage+1可以获取aPage页的页尾。。。

jsyzzym

十分感谢！

banjinjiu

Call InsCustomPageNum子过程或函数未定义

补充内容 (2014-5-17 11:11):
经测试，Call InsCustomPageNum的InsCustomPageNum，就是第一个程序test过程。
把debug.print改成msgbox，得到的0表示页面设置纸张的纵向，1为页面设置纸张的横向。

闻启学

banjinjiu 发表于 2014-5-9 21:25
Call InsCustomPageNum子过程或函数未定义

提供一下这个自定义过程

InsCustomPageNum

loquat

闻启学 发表于 2014-5-14 09:12
提供一下这个自定义过程

InsCustomPageNum

应该就是Selection.Information(…page)

billzhaopa

好贴，感谢，收藏。