Selection.InStory (Word)

True si la selección a la que se aplica este método se encuentra en el mismo artículo que el intervalo especificado por el argumento Range.

Cada intervalo sólo puede pertenecer a un artículo.

InStory (Range)

Range: Intervalo cuyo artículo se compara con el de la selección actual.

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