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