Selection.InRange (Word)

True if the selection to which the method is applied is contained within the range specified by the Range argument.

This method determines whether the range or selection returned by expression is contained in the specified Range by comparing the starting and ending character positions and the story type.

InRange (Range)

Range: The Range to which you want to compare the selection.

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