Range.InRange (Word)

Devuelve true si el intervalo al que se aplica el método se encuentra en el intervalo especificado por el argumento Range.

Este método determina si el intervalo devuelto por la expresión está contenido en el argumento Range especificado mediante la comparación de las posiciones de los caracteres inicial y final, así como el tipo de artículo.

InRange (Range)

Range: Especifica el intervalo que utiliza este método para determinar si está incluido dentro del objeto Range especificado.

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