如果本属性为 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