Word VBA教程:Move方法

应用于 Range 和 Selection对象的 Move方法。

将指定区域或所选内容折叠到开始或结束位置,然后将折叠的对象移动指定数量的单位。本方法返回的 Long 值表明对象实际移动的单位数。如果移动失败,则本方法返回 0(零)。

expression.Move(Unit, Count)

expression   必需。该表达式返回以上一个对象。

Unit  Variant 类型,可选。折叠的区域或所选内容移动的单位。可以是下列 WdUnits 常量之一:wdCharacter、wdWord、wdSentence、wdParagraph、wdSection、wdStory、wdCell、wdColumn、wdRow 或 wdTable。如果 expression 返回Selection对象,则也可以使用 wdLine。默认值为 wdCharacter。

Count  Variant 类型,可选。指定的区域或所选内容移动的单位数。如果 Count 是一个正数,则对象折叠到结束位置,并在文档中向前移动指定的单位数;如果 Count 是一个负数,则对象折叠到开始位置,并向后移动指定的单位数。默认值是 1。在使用 Move方法之前也可以使用 Collapse方法控制折叠的方向。如果区域或所选内容位于一个单位的中间,或者不能折叠,则将区域或所选内容向前或向后移动整个的单位。

说明

折叠的区域或所选内容的开始和结束位置相同。

将 Move方法应用于一个区域并不重新排列文档中的文字,取而代之的是,这个方法重新定义区域,以引用文档中的一个新位置。

如果将 Move方法应用于不是Range对象变量(例如,Selection.Paragraphs(3).Range.Move)的任何区域,则本方法不起作用。

移动一个 Selection对象会折叠所选内容,并将插入点在文档中向前或向后移动。

应用于 Application 和 Task对象的 Move方法。

设置任务窗口或活动文档窗口的位置。

expression.Move(Left, Top)

expression   必需。该表达式返回以上一个对象。

Left  Long 类型,必需。指定窗口的水平屏幕位置。

Top  Long 类型,必需。指定窗口的垂直屏幕位置。

应用于 StyleSheet对象的 Move方法。

将样式表的优先顺序。

expression.Move(Precedence)

expression   必需。该表达式返回一个StyleSheet对象。

Precedence  WdStyleSheetPrecedence,必需。优先级别。

WdStyleSheetPrecedence 可以是下列 WdStyleSheetPrecedence 常量之一:
wdStyleSheetPrecedenceHigher
wdStyleSheetPrecedenceHighest
wdStyleSheetPrecedenceLower
wdStyleSheetPrecedenceLowest

VBA示例

当应用于 Application对象时。

本示例启动“计算器”应用程序 (Calc.exe),并使用 Move方法重新定位应用程序窗口。


Shell "Calc.exe"
With Tasks("Calculator")
    .WindowState = wdWindowStateNormal
    .Move Top:=50, Left:=50
End With

当应用于 Range对象时。

本示例将Range1 设置为活动文档的第一个段落,然后将该区域向前移动三个段落。在该宏运行之后,插入点将位于第四个段落的开头。


Set Range1 = ActiveDocument.Paragraphs(1).Range
With Range1
    .Collapse Direction:=wdCollapseStart
    .Move Unit:=wdParagraph, Count:=3
    .Select
End With

当应用于 Selection对象时。

本示例将所选内容向右移动两个单词,并将插入点放在第二个单词后的空格处。如果移动失败,则会显示一个消息框,表明所选内容位于文档的末尾。


If Selection.StoryType = wdMainTextStory Then
    wUnits = Selection.Move(Unit:=wdWord, Count:=2)
    If wUnits < 2 Then _
        MsgBox "Selection is at the end of the document"
End If

本示例将所选内容在表格中向前移动三个单元格。


If Selection.Information(wdWithInTable) = True Then
    Selection.Move Unit:=wdCell, Count:=3
End If

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号