如何在 vba 中刷新 Word 文档页码？

Question

我有一个清理 2010 Word 文档的 VBA 宏。实际上，它会删除许多表上的空行。

在函数的最后，我想创建一个目录，其中包含文档中所有表格的标题和页码。

Dim tTable As Table
tTable.Range.Information(wdActiveEndPageNumber)

问题是，清理表格将文档的长度从 30 页减少到 25 页。当我调用.Information(wdActiveEndPageNumber) 时，页面索引尚未更新。

我曾尝试拨打Sleep 一段时间，但也打不通。

我不是 VBA 专家，但是否有强制更新文档页码的功能？

谢谢

Answer 1

经过一番研究，我找到了要调用的函数：

ActiveDocument.Repaginate

它似乎工作正常！