Range.IsEqual (Word)

True si el intervalo al 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 el objeto Range definido por expression.

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