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