Selection.SelectCurrentAlignment (Word)

Extiende la selección hacia delante hasta que encuentra texto con una alineación de párrafo distinta.

Hay cuatro tipos de alineación de párrafo: izquierda, centrada, derecha y justificada.

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