There is no need to select anything. For example:
Code:
Sub GetParagraphVerticalPositions()
Dim para As Paragraph, vertPos As Single
For Each para In ActiveDocument.Paragraphs
vertPos = para.Range.Information(wdVerticalPositionRelativeToPage)
MsgBox ("Paragraph: " & para.Range.Text & "Vertical Position: " & vertPos)
Next para
End Sub
Works for me...