vba字 - 强制页数

Question

我有一个使用

浏览文档的脚本

Set main_browser = Application.Browser
main_browser.Target = wdBrowsePage
main_browser.Next

只有在执行前按Ctrl+End 或等待足够长的时间才能正常工作，以便Word 计算文档中的页数（通常是超过一千页，所以需要一些时间）

我现在正在尝试添加“批量文件”功能（在对话框中选择一组文件并对其进行处理）。我发现当Word在VBA脚本中打开文档时，它只会处理前几页并继续前进。 我能想到的只是

Selection.GoTo What:=wdGoToPage, Which:=wdGoToLast
Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst

并没有帮助。

所以问题是：如何在Word计算页面时“等待”或者（更好）手动强制它计算它们？

Answer 1

Application.ActiveDocument.Repaginate就是您所需要的。你应该在调用任何其他代码之前调用它。