VBA Word - 形状元素的页码答案

【问题标题】：VBA Word - page number of shape elementVBA Word - 形状元素的页码
【发布时间】：2016-12-13 18:27:13
【问题描述】：

我可以检查给定范围在哪个页面上结束，如下所示：

Debug.Print ActiveDocument.Range.Information(3) 'wdActiveEndPageNumber = 3

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

在微软网站上有一个Shapes.Range的例子：

ActiveDocument.Shapes.Range(Array("Oval 4", "Rectangle 5"))

但它看起来不是一个真实的范围，我可以使用 Information 方法从中提取页码。

【问题讨论】：

标签： vba ms-word

【解决方案1】：

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

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

【讨论】：