在Microsoft Word VBA中，如何检查重新分页？

Question

我正在使用Microsoft Word 2007.我用VBA打开一些文档，我需要对它们做一些工作。但是，当刚刚打开文件时，VBA会执行此重新分页，并且在继续之前不会等待它完成。那么会发生什么事情，我的代码会出错，因为它认为打开的文档只有几页长，而且时间要长得多。

我的代码：

Documents.Open fileName:="C:\file.doc", Visible:=False
MsgBox ActiveDocument.BuiltInDocumentProperties("Number of Pages")

我曾试图使用睡眠，但它没有用，有什么想法吗？

Answer 1

试试这个：

Dim NewDoc As Document
Dim PageCount As Long

Set NewDoc = fileName:="C:\file.doc", Visible:=False
PageCount = NewDoc.ComputeStatistics(wdStatisticPages)

MsgBox PageCount