如何刷新vba中的Word doc页码？

Question

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

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

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

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

我尝试拨打Sleep一段时间，但它也无效。

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

由于

Answer 1

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

ActiveDocument.Repaginate

似乎工作正常！