全部显示

InStory 方法

       

如果本属性为 True,则应用本方法的选定部分或区域的文字部分Range 参数指定的区域相同。

注意   一个区域只能属于一个文字部分。

expression.InStory(Range)

expression   必需。该表达式返回一个 RangeSelection 对象。

Range   Range 对象,必需。该 Range 对象的文字部分将与 expression 中包含的文字部分进行比较。

示例

本示例判定所选内容是否与活动文档第一段属于同一文字部分。因为所选内容位于页眉部分,而第一段位于文档正文部分,所以消息框显示为“False”。

With ActiveDocument.ActiveWindow.View
    .Type = wdPrintView
    .SeekView = wdSeekCurrentPageHeader
End With
same = Selection.InStory(ActiveDocument.Paragraphs(1).Range)
MsgBox same

本例判断 Range1Range2 是否属于同一文字部分。如果是,将 Range1 变为粗体。

Set Range1 = Selection.Words(1)
Set Range2 = ActiveDocument.Range(Start:=20, End:=100)
If Range1.InStory(Range:=Range2) = True Then
    Range1.Font.Bold = True
End If