Utiliser la méthode GoTo, par exemple pour atteindre la page 6 :

 

Sub allera()
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=6
End Sub