Selection.InRange (Word)

True se a seleção à qual o método é aplicado está contida dentro do intervalo especificado pelo argumento Range.

Este método determina se o intervalo ou a seleção retornada 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: O Range ao qual deseja comparar a seleção.

status = Selection.InRange(ActiveDocument.Paragraphs(1).Range)