Word VBA教程:InStory方法

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

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

expression.InStory(Range)

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

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

VBA示例

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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号