Selection.IPAtEndOfLine (Word)

True se o ponto de inserção estiver no final de uma linha que passará para a próxima linha. Boolean somente leitura.

False se a seleção não estiver recolhida, se o ponto de inserção não estiver no final de uma linha ou se o ponto de inserção estiver posicionado antes de uma marca de parágrafo.

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