vba怎么实现在word中跳转到某一页

Question

怎么实现自动转到某一页,然后选择整页.

Answer 1

Sub Macro1()
    Selection.GoTo wdGoToPage, wdGoToNext, , "15"
    Selection.MoveDown wdLine, ActiveDocument.PageSetup.LinesPage, wdExtend
End Sub

Answer 2

wdLine, wdExtend这两个参数什么意思?

Answer 3

MoveDown 方法
参阅应用于示例特性将所选内容向下移动，并返回移动距离的单位数。注释  wdWindow 常量可用来移至活动窗口的顶部或底部。不管 Count 是大于 1 或小于 - 1， wdWindow 常量只移动一个单位。可使用 wdScreen 移动多屏。expression.MoveDown(Unit, Count, Extend)
expression      必需。该表达式返回一个 Selection 对象。Unit      WdUnits，可选。所选内容移动距离的度量单位。        可以是下列 WdUnits 常量之一：        wdLine        wdParagraph        wdWindow        wdScreen默认值是 wdLine。Count      Variant 类型，可选。所选内容移动距离的单位数。默认值为 1。Extend      Variant 类型，可选。可为 wdMove 或 wdExtend。如果是 wdMove，则所选内容折叠到结束位置，并向下移动。如果是 wdExtend，则所选内容向下扩展。默认值为 wdMove。示例
本示例将所选内容向下扩展一行。Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend

本示例将所选内容向下移动三个段落。如果移动成功，则在插入点插入“Company”。unitsMoved = Selection.MoveDown(Unit:=wdParagraph, _
    Count:=3, Extend:=wdMove)
If unitsMoved = 3 Then Selection.Text = "Company"

本示例显示当前的行编号，将所选内容向下移动三行，并再次显示当前行编号。MsgBox "Line " & Selection.Information(wdFirstCharacterLineNumber)
Selection.MoveDown Unit:=wdLine, Count:=3, Extend:=wdMove
MsgBox "Line " & Selection.Information(wdFirstCharacterLineNumber)