Range.IsEqual (Word)

True si la plage à 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 d'article.

IsEqual (Range)

Range: Plage à comparer à l'objet Range défini par l'expression.

Set Range1 = Selection.Words(1) 
Set Range2 = ActiveDocument.Words(3) 
If Range1.IsEqual(Range:=Range2) = True Then 
 Range1.Delete 
End If