如何用vba获取word文档的总页数？

在word中经常要以页为单位处理文档，本文介绍两种获取word文档总页数的方法。

一、用pages集合对象获得文档的总页数。

代码如下：

Sub QQ1722187970()
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    '获取当前文档的总页数
    MsgBox oDoc.Windows(1).Panes(1).Pages.Count
End Sub

二、用range对象的Information属性来获取总页数

代码如下：

Sub QQ1722187970()
    Dim iPageNo As Long
    '获取总页数
    iPageNo = Word.ActiveDocument.Range.Information(wdNumberOfPagesInDocument)
End Sub

WdInformation 参数有多种类型，各个类型的解释说明可以看这里。