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