IPAtEndOfLine Property Example

If the insertion point isn't already at the end of the line, this example moves it there.

Selection.Collapse Direction:=wdCollapseEnd
If Selection.IPAtEndOfLine = False Then
    Selection.EndKey Unit:=wdLine, Extend:=wdMove
End If