在Microsoft Word VBA中，如何檢查重新分頁？

我正在使用Microsoft Word 2007.我用VBA打開了一些文檔，我需要對它們做一些工作。但是，當文件剛剛打開時，VBA將執行此重新分頁，並且不會在繼續之前等待它完成。所以會發生什麼是我的代碼會出錯，因爲它認爲打開的文檔在更長的時間內只有幾頁長。在Microsoft Word VBA中，如何檢查重新分頁？

我的代碼：

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

我曾嘗試使用睡眠，但它不工作，任何想法？

來源

2010-11-08 Bill

好了，所以我發現周圍的工作。我沒有試過Nick的回答，看起來很合理。無論如何，我所做的就是一次一個段落地瀏覽整個文檔。效率較低，但效果很好。 – Bill 2010-11-09 21:46:11

試試這個：

Dim NewDoc As Document 
Dim PageCount As Long 

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

MsgBox PageCount

來源

2010-11-09 03:39:05

在Microsoft Word VBA中，如何檢查重新分頁？

回答

相關問題