我正在使用自动化程序对Word文档进行大量更改，并运行VBA宏，其中检查文档的页数是否超过了某个特定值。 我使用ActiveDocument.Information(wdNumberOfPagesInDocument)来获取页数，但该方法返回不正确的结果。 我认为这是因为Word尚未更新文档的分页以反映我所做的更改。
ActiveDocument.ComputeStatistics(wdStatisticPages)也存在同样的问题。
我尝试添加调用ActiveDocument.Repaginate，但没有任何作用。
我曾经通过在文档末尾添加一个段落，然后再将其删除来解决这个问题，但这种方法似乎已经不起作用（我最近从Word 2003迁移到Word 2010）。
有没有办法强制Word实际重新排版，或者等待重新排版完成？
我刚刚花了好2个小时来解决这个问题，但是我还没有在任何论坛上看到这个答案，所以我想分享一下。
https://msdn.microsoft.com/en-us/vba/word-vba/articles/pages-object-word?f=255&MSPPError=-2147217396
这给了我我的解决方案，结合浏览文章找到大多数人引用的解决方案都不支持最新版本的Word。我不知道它是在哪个版本中更改的，但我的假设是2013年及更新版本可以使用此代码计算页面：
ActiveDocument.ActiveWindow.Panes(1).Pages.Count.
我认为这个方法的工作原理是：ActiveDocument选择文件，ActiveWindow确认要使用的文件是否在当前窗口中（如果文件在视图选项卡中打开了多个窗口），Panes确定如果有多个窗口/分割窗格/任何其他你想要“第一个”被评估的无聊东西，pages.count通过计算集合中项目的数量指定要被评估的页面对象。
如果有更多知识的人请随意纠正我，但这是我尝试过的任何文档上都给出正确页数计数的第一个方法！
还有，我很抱歉，但我弄不明白如何将那一行格式化为代码块。如果版主想编辑我的评论来做到这一点，那就请便。
Pages集合只能在打印布局视图中访问，这表明它确实考虑了页面布局。（我也想知道当ScreenUpdating关闭和/或文档不可见时是否有效-这两个因素会降低其在自动化场景中的有用性）。 - Gary McGillActiveDocument.Repaginate 之后)。ActiveDocument.BuiltinDocumentProperties(wdPropertyPages)
这段代码：ActiveDocument.ComputeStatistics(wdStatisticPages)可以立即返回结果，但是会导致Word 2010在状态栏中显示“正在计算字数”，并耗费半秒钟的时间。
在您完成所有更改后，您可以使用OnTime强制延迟一段时间再读取页面统计信息。
Application.OnTime When:=Now + TimeValue("00:00:02"), _
Name:="UpdateStats"
OnTime语句之前更新所有字段：
我也会在这个OnTime语句之前更新所有字段：
ActiveDocument.Range.Fields.Update
$MSWord.activewindow.view.type = 3 # 3 is 'wdPrintView', 6 is 'wdWebView'
$Pages = $mydoc.ComputeStatistics(2) # 2 is 'wdStatisticPages'
ComputeStatistics行返回了正确的总页数31页，但今天只返回1页。Content对象，这样就可以返回正确的页数。Dim docMultiple As Document
Set docMultiple = ActiveDocument
lPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages) ' Returns 1
lPageCount = docMultiple.ComputeStatistics(wdStatisticPages) ' Returns correct count, 31
我在Excel中使用了这个程序，它可靠地处理了大约20个文档，其中没有一个超过20页，但有些文档包含了图片和分页等复杂元素。
Sub GetlastPageFromInsideExcel()
Set wD = CreateObject("Word.Application")
Set myDoc = wD.Documents.Open("C:\Temp\mydocument.docx")
myDoc.Characters.Last.Select ' move to end of document
wD.Selection.Collapse ' collapse selection at end
lastPage = wD.Selection.Information(wdActiveEndPageNumber)
mydoc.close
wd.quit
Set wD = Nothing
End Sub
ActiveDocument.Range.Information(wdNumberOfPagesInDocument)
这个方法对我来说总是有效的，它返回了文档中物理页的总数。
ActiveDocument.Information(wdNumberOfPagesInDocument)与ActiveDocument.Range.Information(wdNumberOfPagesInDocument)是相同的，因为Range是Document的默认属性。它在大多数情况下都有效，但在涉及许多复杂文档的自动化过程中并不可靠。 - Gary McGillDim wordapp As Object
Set wordapp = CreateObject("Word.Application")
Dim doc As Object
Set doc = wordapp.Documents.Open(oFile.Path)
Dim pagesCount As Integer
pagesCount = doc.Content.Information(4) 'wdNumberOfPagesInDocument
doc.Close False
Set doc = Nothing
ActiveDocument之外，直接引用文档对象怎么样？（你可以将其存储在变量中） - VoitcusActiveWindow.Panes(1).Pages.Count- Kazimierz JaworActiveDocument.Bookmarks("\EndOfDoc").Select），然后调用.Information(wdNumberOfPagesInDocument)。这对我在一个非常复杂的1,177页文档上运行良好，但需要很长时间。 - CuberChase