怎样把Doc的某一页设为当前页，或者是活动页？

在编程的时候，怎样把Doc的某一页设为当前页，或者是活动页？是不是有现成的函数呀？
找不到相关的接口，请大家指教？ --------------------编程问答-------------------- It's easy:

'去第n页

Sub Macro1()

Selection.GoTo 1, 2, , n

End Sub

补充：VB ,  VBA