Range.IsEqual (Word)

True se o intervalo ao qual esse método é aplicado é igual ao intervalo especificado pelo argumento Range.

Este método compara as posições de caractere inicial e final e o tipo de texto. Quando todos esses três itens são os mesmos para ambos os objetos, os objetos são iguais.

IsEqual (Range)

Range: O intervalo a ser comparado com o objeto de intervalo definido por expressão.

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