В 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