Word VBA中的光标操作

admin 管理员组

文章数量: 887016

一、 光标对象及其位置属性

在Word VBA中，光标对象的名称为Selection。一个Selection实际上由两个位置指示器组成，其中一个指示器称为Start，一个指示器称为End，分别代表光标的起始位置和结束位置。当Start与End相等时，光标显示为一条竖线，不相等时光标显示为一个选择区域。

二、 光标的移动

光标的移动主要有两大类方法，一种为Move系方法，一种为GoTo系方法。
1、 Move系方法
包括Move、MoveDown、MoveEnd、MoveEndUntil、MoveEndWhile、MoveLeft、MoveRight、MoveStart、MoveStartUntil、MoveStartWhile、MoveUntil、MoveUp、MoveWhile、HomeKey、EndKey、StartOf、EndOf等，这些方法的共同特点是返回一个整型值，表示实际移动的数量，参数中一般都包含一个unit（移动单位）和一个count（移动数量），其中unit参数可取值为WdUnits枚举类型。部分方法还有一个Extend参数，默认值为wdMove，表示Start位置指示器和End位置指示器捆绑在一起移动，形成光标移动效果；当它取值为wdExtend时，向后移动只有Start位置指示器移动，向前移动只有End位置指示器移动，形成选择一个区域的效果。此外，StartOf、EndOf与HomeKey、EndKey比较，前面两个方法的unit参数可用的类型更多，例如wdSection就只能用于做前者的参数而不能用于做后者的参数（office2010，其它版本是否如此未测试）。
2、 Goto系方法
包括GoTo、GoToNext、GoToPrevious等。
这组方法与Move方法最大的差别是它的返回值为代表当前选择区域的Range。要知道这组方法执行后实际移动了多少数量的字符，只能通过记录执行前后的光标位置来计算。它的参数有四个。what参数取值为WdGoToItem常量之一；which参数为WdGoToDirection 常量之一；count参数为项的数目，与Move系方法不同的是，count不能为负数；最后一个参数为name，如果what参数值为wdGoToBookmark 、 wdGoToComment 、 wdGoToField 或 wdGoToObject，那么这个参数可以指定一个名称。由于WdGoToItem常量没有提供类似wdGotoCharacter的常数，无法通过这组方法指定移动多少字符。
下面的代码演示先记录光标位置，在进行一些操作后恢复光标位置：

Sub SelectionPositionDemo()
    Dim position, count As Long
    position = Selection.Start
    '记录光标距离文档最后一个字符的位置，注意光标不能在最后一个回车符之后，所以要调整一个字符
    count = position - ActiveDocument.Characters.count + 1
    '这里可以添加操作文档的代码，如果这些操作改变了文章内容的长度，需要调整及时count
    '恢复光标位置：先将光标移动至文档末尾，再移动count个字符
    Selection.EndOf wdStory
    Selection.Move wdCharacter, count
    Debug.Print "position:" & Selection.Start & "start:" & Selection.Start
End Sub

用GoTo系方法遍历文档时，如需判断当前所遍历到的对象是否是文档最后一个遍历对象，可以通过执行GoTo系方法前后光标位置是否发生变化进行。如果文档中不存在遍历对象，第一次执行GoTo系方法后光标的初始位置是0。以wdGoToHeading作为参数遍历文档时的示例代码如下：

Sub test()
    Dim pos As Long
    
    With Selection
        .HomeKey wdStory '光标回到文档开头，此时Selection.Start为0
        Do
            pos = .Start '先记录光标位置
            .GoTo wdGoToHeading, wdGoToNext, 1 '向后移动到下一个标题，以标题为对象遍历文档
            MsgBox "pos=" & pos & vbCrLf & ".Start=" & .Start
            ' 如果光标位置没有发生变化，则已遍历完文档中所有的标题            
            If .Start = pos Then
               If .Start = 0 Then
                   MsgBox "文档中没有标题！"
               Else
                   MsgBox "已到达文档中最后一个标题！"
               End If
               Exit Do
            End If
        Loop
    End With
    
End Sub

三、输入内容

主要包括以下Insert系列方法：InsertAfter、InsertBefore、InsertBreak、InsertCaption、InsertCells、InsertColumns、InsertColumnsRight、InsertCrossReference、InsertDateTime、InsertFile、InsertFormula、InsertNewPage、InsertParagraph、InsertParagraphAfter、InsertParagraphBefore、InsertRows、InsertRowsAbove、InsertRowsBelow、InsertStyleSeparator、InsertSymbol、InsertXML。
还有一个直接输入字符串的方法TypeText，输入的字符串由参数Text指定。

四、由Selection获取其他对象

1、获取Range对象：直接使用Selection对象的Range属性。
2、获取BookMark、Field、Paragraph、Character、Section、Cell、Row、Word、Table等对象：
这些对象在Selection对象中均有相应的集合属性，使用Selection对象的相应集合属性加上索引即可取得。所有索引均从1开始计数。例如：Selection. Paragraphs(1)可以取得光标区域第一个段落，Selection. Fields(1)可以取得选择区的第一个域。
这些对象均可以通过For Each语句进行遍历。

五、操作页眉页脚

直接用Selection.HeaderFooter操作页眉页脚容易出错，需要先确保Selection已经在页眉页脚区域中。可以通过Selection.Sections(1).Headers(wdHeaderFooterPrimary).Range.Select将光标移动到当前光标所在页的页眉中。但是这一操作会导致视图变换为草稿视图。可以通过以下操作将视图恢复为页面视图：

	' 恢复视图为页面视图
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    ActiveWindow.ActivePane.View.Type = wdPrintView

六、判断光标是否已经到达文档内容结束处

可以通过Selection对象的位置指示器与文档内容结束位置的比较来判断光标是否已到达文档内容的结束位置。文档结束位置可以使用ActiveDocument.Content.End - 1取得。如下代码片段，光标放在文档主体内容的最后一个回车符处时，将提示“True”，否则将提示“False”。需要注意的是，如果文档最后一页有脚注或尾注或光标位于最后一页页脚的最后一个回车符位置，下面的代码也将提示“False”。

MsgBox Selection.start = (ActiveDocument.Content.End - 1)

七、查找和替换

VBA中使用查找和替换，可以通过Selection对象的Find属性的Execute方法实现。以下示例在选择范围内向前搜索“Microsoft”。 如果找到了该单词，则自动将其选中。

With Selection.Find 
 .Forward = True 
 .ClearFormatting 
 .MatchWholeWord = True 
 .MatchCase = False 
 .Wrap = wdFindContinue 
 .Execute FindText:="Microsoft" 
End With

下面的示例查找选择范围内所有的“hi”，并且将其替换为“hello”。

With Selection.Find 
 .Forward = True 
 .ClearFormatting 
 .MatchWholeWord = True 
 .MatchCase = False 
 .Wrap = wdFindContinue 
 .Execute FindText:="hi", _ 
    ReplaceWith:="hello", Replace:=wdReplaceAll 
End With

八、Information方法

VBA中，Range对象及其子类对象（如Selection、Character、Word等）都有Information方法，该方法有一个Type参数，这个参数的取值为wdInformation枚举类型，该枚举类型指定我们需要获取的信息，可用枚举值及其含义如下：

以下代码演示了获取光标所在节的起始页码和终止页码：

Sub 获取光标所在节的起始页码和终止页码()
    With Selection
        '在立即窗口打印节标题，默认为节的第一个段落
        Debug.Print Replace(.Sections(1).Range.Paragraphs(1).Range.Text, Chr(13), "")
        '光标移动到节开头位置
        .StartOf wdSection
        '打印出光标所在页码信息
        Debug.Print "开始页码——" & .Information(wdActiveEndPageNumber)
        '光标移动到节结束位置
        .EndOf wdSection
        '打印出光标所在页码信息
        Debug.Print "结束页码——" & .Information(wdActiveEndPageNumber)        
    End With
End Sub

'上面的宏执行完成后光标位置发生了移动，如需要恢复到原始位置，可参考本文第一段演示代码
'下面的宏则可以在不移动光标的前提下获取光标所在节的起始页码和终止页码
Sub 不移动光标获取光标所在节的起始页码和终止页码()
	With Selection.Sections(1).Range
		Debug.Print "当前光标处于第" & .Information(wdActiveEndSectionNumber) & "节：" & _
		 	"开始页码——" & .Characters(1).Information(wdActiveEndPageNumber) & _
        	";结束页码——" & .Characters.Last.Information(wdActiveEndPageNumber)
    End With
End Sub

九、判断文档中是否存在选择区域

要判断文档中是否存在被选择的字符，除了比较Selection.Start 与Selection.End是否相等外，还可以测试逻辑表达式Selection.Type= wdSelectionIP or Selection.Type=wdNoSelection，表达式为真时文档中没有选择字符（即此时按下Ctrl+C，剪贴板为空白），否则文档中选择了字符。

本文标签： 光标 操作 Word VBA