MaxPages = Selection.Information(wdNumberOfPagesInDocument)
For i = 1 To MaxPages
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst, Count:=i, Name:=""
    ActiveDocument.Bookmarks("\page").Select
Next