Question

全部显示

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

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

expression.Move(Unit, Count)

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

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

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

说明

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

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

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

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

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

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

expression.Move(Left, Top)

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

LeftLong 类型，必需。指定窗口的水平屏幕位置。

TopLong 类型，必需。指定窗口的垂直屏幕位置。

应用于 StyleSheet 对象的 Move 方法。

将样式表的优先顺序。

expression.Move(Precedence)

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

PrecedenceWdStyleSheetPrecedence，必需。优先级别。

WdStyleSheetPrecedence 可以是下列 WdStyleSheetPrecedence 常量之一：

wdStyleSheetPrecedenceHigher

wdStyleSheetPrecedenceHighest

wdStyleSheetPrecedenceLower

wdStyleSheetPrecedenceLowest

示例

当应用于 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