Selection.IPAtEndOfLine (Word)

True, wenn sich die Einfügemarke am Ende einer Zeile befindet, die in der nächsten Zeile umbrochen wird.

False , wenn die Markierung nicht reduziert ist, wenn sich die Einfügemarke nicht am Ende einer Leitung befindet oder wenn die Einfügemarke vor einer Absatzmarke positioniert ist.

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