Microsoft Office Forums - View Single Post

macropod · 07-29-2022, 07:38 AM

For example:

Code:

With Selection
  MsgBox "HorizontalPositionRelativeToPage: " & .Information(wdHorizontalPositionRelativeToPage) & vbCr & _
  "HorizontalPositionRelativeToTextBoundary: " & .Information(wdHorizontalPositionRelativeToTextBoundary) & vbCr & _
  "VerticalPositionRelativeToTextBoundary: " & .Information(wdVerticalPositionRelativeToPage) & vbCr & _
  "VerticalPositionRelativeToTextBoundary: " & .Information(wdVerticalPositionRelativeToTextBoundary)
End With