Selection.InStory (Word)

True if the selection to which this method is applied is in the same story as the range specified by the Range argument.

A range can belong to only one story.

InStory (Range)

Range: The range whose story is compared with the story of the current selection.

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