Selection.InStory (Word)

True, wenn die Auswahl, der die Methode zugewiesen wird, sich in demselben Artikel befindet wie der mit dem Argument Range angegebene Bereich.

Ein Bereich kann nur zu einem Artikel gehören.

InStory (Range)

Range: Der Bereich, dessen Artikel mit demjenigen der aktuellen Auswahl verglichen wird.

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