Word VBA教程:MoveLeft方法

将所选内容向左移动,并返回移动距离的单位数。

expression.MoveLeft(Unit, Count, Extend)

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

Unit   WdUnits,可选。所选内容移动距离的度量单位。

        可以是下列 WdUnits 常量之一:

        wdCell

        wdCharacter

        wdWord

        wdSentence

默认值为 wdCharacter。

Count   Variant 类型,可选。所选内容移动距离的单位数。默认值是 1。

Extend   Variant 类型,可选。可以是 wdMove 或 wdExtend。如果是 wdMove,则所选内容折叠到结束位置,并向左移动。如果是 wdExtend,则所选内容向左扩展。默认值是 wdMove。

说明

如果 Unit 为 wdCell,则 Extend参数只能是 wdMove。

VBA示例

本示例将所选内容向左移动一个字符。如果移动成功,则 MoveLeft方法返回 1。


If Selection.MoveLeft = 1 Then MsgBox "Move was successful"

本示例激活选中域的域底纹功能,插入 DATE 域,然后将所选内容向左移动,以选定该域。


ActiveDocument.ActiveWindow.View.FieldShading = _
    wdFieldShadingWhenSelected
With Selection
    .Fields.Add Range:=Selection.Range, Type:=wdFieldDate
    .MoveLeft Unit:=wdWord, Count:=1
End With

本示例将所选内容移至表格的前一个单元格。


If Selection.Information(wdWithInTable) = True Then
    Selection.MoveLeft Unit:=wdCell, Count:=1, Extend:=wdMove
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号