Sub Макрос1()

  Dim rgePages As Range

Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=1

Set rgePages = Selection.Range

Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=10

rgePages.End = Selection.Bookmarks("\Page").Range.End

rgePages.Select

   End Sub