VBA Word - 形状元素的页码

Question

我可以查看给定范围的哪个页面结束如下：

<MSBuildDnnBinPath Condition="'$(MSBuildDnnBinPath)' == ''">$(MSBuildProjectDirectory)\bin</MSBuildDnnBinPath>

此示例返回文档中的最后一页。我想确定哪个页面位于我的形状集合中的指定形状。

在Microsoft网站上有一个Debug.Print ActiveDocument.Range.Information(3) 'wdActiveEndPageNumber = 3 的例子：

Shapes.Range

但看起来它不是真正的范围，我可以使用ActiveDocument.Shapes.Range(Array("Oval 4", "Rectangle 5")) 方法提取页码。

Answer 1

您需要使用形状Anchor属性，该属性返回形状锚定到的范围。例如：

Debug.Print ActiveDocument.Shapes(1).Anchor.Information(wdActiveEndPageNumber)