title: VBA Word - page number of shape element
body: <p>I can check on which page given range ends like this:</p>
  
  <pre><code>Debug.Print ActiveDocument.Range.Information(3) 'wdActiveEndPageNumber = 3
  </code></pre>
  
  <p>This example returns me the last page in the document. I would like to determine on which page is located a specified shape in my shapes collection.</p>
  
  <p>On Microsoft website there is an example of <code>Shapes.Range</code>:</p>
  
  <pre><code>ActiveDocument.Shapes.Range(Array("Oval 4", "Rectangle 5"))
  </code></pre>
  
  <p>but it looks like it isn't a real range I can extract page number from with <code>Information</code> method.</p>