vba怎么实现在word中跳转到某一页
怎么实现自动转到某一页,然后选择整页.
[解决办法]
Sub Macro1()
Selection.GoTo wdGoToPage, wdGoToNext, , "15 "
Selection.MoveDown wdLine, ActiveDocument.PageSetup.LinesPage, wdExtend
End Sub
[解决办法]
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)
