Selection.IsEqual (Word)

True si la sélection à laquelle s'applique cette méthode est identique à la plage spécifiée par l'argument étendue.

Cette méthode compare l'emplacement du caractère de début et celui du caractère de fin, ainsi que le type de contenu.

IsEqual (Range)

Range: Plage à comparer à la sélection actuelle.

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