Selection.InStory (Word)

True si la sélection à laquelle cette méthode est appliquée se trouve dans le même article que la plage spécifiée par l'argument étendue.

Une plage ne peut appartenir qu'à un seul article.

InStory (Range)

Range: Plage dont l'article est comparé à l'article de la sélection actuelle.

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