Selection.InStory (Word)

True se a seleção à qual esse método é aplicado está no mesmo texto do intervalo especificado pelo argumento Range.

Um intervalo só pode pertencer a um texto.

InStory (Range)

Range: O intervalo cujo texto é comparado ao texto da seleção atual.

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