本示例确定所选内容是否包含在活动文档的首段内。

status = Selection.InRange(ActiveDocument.Paragraphs(1).Range)
If status Then
    MsgBox "所选内容是包含在活动文档的首段内。"
Else
    MsgBox "所选内容不包含在活动文档的首段内。"
End If