Question

全部显示

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

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

expression.InStory(Range)

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

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

示例

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

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

本例判断Range1 和Range2 是否属于同一文字部分。如果是，将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