Range.InRange (Word)

Retorna true se o intervalo ao qual o método é aplicado está contido no intervalo especificado pelo argumento Range.

Este método determina se o intervalo retornado por expressão está contido no Range especificado comparando as posições de caractere inicial e final, bem como o tipo de texto.

InRange (Range)

Range: Especifica o intervalo que este método usa para determinar se ele está contido no objeto Range especificado.

Set myRange = ActiveDocument.Words(1) 
If myRange.InRange(Selection.Range) = False Then myRange.Select