Selection.SelectCurrentAlignment (Word)

Estende a seleção para frente até que seja encontrado um texto com um alinhamento de parágrafo diferente.

Existem quatro tipos de alinhamento de parágrafo: esquerdo, centralizado, direito e justificado.

Selection.SelectCurrentAlignment 
Selection.Collapse Direction:=wdCollapseEnd 
If Selection.End = ActiveDocument.Content.End - 1 Then 
 MsgBox "No change in alignment found." 
End If