fieldset{padding:10px;}
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) 懂得接受失败的人，就是懂得人生真谛的人，
