Microsoft Office Forums - View Single Post - [Solved] Selection.Information not working as intended for selection position

gmaxey · 11-06-2022, 10:38 AM

Finding text with a range object doesn't select the text so your selection is where it is throughout the process:

Code:

Dim oRng As Range
Sub getPosition()
    Debug.Print oRng.Information(wdVerticalPositionRelativeToPage)
    Debug.Print oRng.Information(wdHorizontalPositionRelativeToPage)
End Sub

Sub Test()
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = "Test Words"
    While .Execute
      getPosition
      oRng.Collapse wdCollapseEnd
    Wend
  End With
End Sub