Selection.IsEqual (Word)

True se a seleção à qual esse método é aplicado é igual ao intervalo especificado pelo argumento Range.

Este método compara as posições de caractere inicial e final, bem como o tipo de texto. Se todos esses três itens forem os mesmos para a seleção e o objeto especificados no argumento Range, os objetos serão iguais.

IsEqual (Range)

Range: O intervalo a ser comparado com a seleção atual.

If Selection.IsEqual(ActiveDocument _ 
 .Paragraphs(2).Range) = False Then 
 ActiveDocument.Paragraphs(2).Range.Select 
End If