Selection.IsEqual (Word)

True si la selección a la que se aplica este método es igual al intervalo especificado por el argumento Range.

Este método compara las posiciones de carácter inicial y final, así como el tipo de artículo.

IsEqual (Range)

Range: Intervalo que se va a comparar con la selección actual.

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