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

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