VBAのWord - 形状要素

Question

のページ番号は、私は与えられた範囲は次のように終了するページ上で確認することができます。

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

この例では、文書中に私の最後のページを返します。シェイプコレクションに指定された図形がどのページにあるかを調べたいと思います。 MicrosoftのWebサイト上で

はShapes.Rangeの例があります：

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

が、それは私がInformation方法からページ番号を抽出することができ、実際の範囲ではないように見えます。

Answer 1

シェイプがアンカーされる範囲を返すシェイプAnchorプロパティを使用する必要があります。例：

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