全部显示

InRange 方法

如果返回值为 True，则应用本方法的区域或所选内容包含在由参数 Range 指定的区域内。

expression   必需。该表达式返回一个 Range 或 Selection 对象。

Range   Range 对象，必需。指与表达式 expression 相比较的区域。

说明

本方法通过比较起始字符和结束字符的位置，判定表达式 expression 返回的区域对象或所选内容是否包含在指定的 Range 内。同时比较其文字部分的类型。

示例

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

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

本示例设置 myRange 指向活动文档的第一个单词。如果 myRange 不包含在所选内容中，则使所选内容包括 myRange。

Set myRange = ActiveDocument.Words(1)
If myRange.InRange(Selection.Range) = False Then myRange.Select

当所选内容位于脚注部分时，本示例显示一条消息。

If Selection.InRange(ActiveDocument _
        .StoryRanges(wdFootnotesStory)) Then
    MsgBox "Selection in footnotes"
End If