Selection.IPAtEndOfLine (Word)

True si el punto de inserción está al final de una línea que se ajusta a la siguiente línea.

False si no se contrae la selección, si el punto de inserción no está al final de una línea, o si el punto de inserción está situado delante de una marca de párrafo.

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