Selection.InRange (Word)
True si la selección a la que se aplica el método está incluida dentro del intervalo especificado por el argumento Range.
Este método determina si el intervalo o la selección devueltos por la expresión están contenidos 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: El Intervalo con el que desea comparar la selección.
status = Selection.InRange(ActiveDocument.Paragraphs(1).Range)