如何用vba在word中快速移动或选中内容区域？

最新推荐文章于 2024-09-05 09:30:00 发布
最新推荐文章于 2024-09-05 09:30:00 发布
阅读量8.6k 收藏 54
点赞数 5
分类专栏： VBA
原文链接：http://www.exceloffice.net/archives/1598
版权

转自：http://www.exceloffice.net/archives/1598

在word中经常需要操作特定位置的文本内容，定位文本内容就显得尤为重要。

在word vba中Range、 Selection 对象有多种移动、定位、选择文本内容的方法和属性。

在这些方法和属性中，有两类枚举常量是经常要用到的，一类是移动、定位、选择的单位常量WdUnits，比如是按照行、段落、单词、还是句子进行移动、定位。

以下就是在word中会用到的16种单位常量枚举：

名称值说明常量的定义
wdCell121个单元格Const wdCell=12
wdCharacter11个字符Const wdCharacter=1
wdCharacterFormatting13字符格式Const wdCharacterFormatting=13
wdColumn9一列Const wdColumn=9
wdItem16选中的项目Const wdItem=16
wdLine5一行Const wdLine=5
wdParagraph4一个段落Const wdParagraph=4
wdParagraphFormatting14段落格式Const wdParagraphFormatting=14
wdRow10一行Const wdRow=10
wdScreen7一个屏幕Const wdScreen=7
wdSection8一个节Const wdSection=8
wdSentence3一句话Const wdSentence=3
wdStory6全文Const wdStory=6
wdTable15一个表格Const wdTable=15
wdWindow11一个窗口Const wdWindow=11
wdWord2一个单词Const wdWord=2

另一类是移动、定位、选择的方向枚举常量WdMovementType，WdCollapseDirection等。

如下所示:

名称值说明常量的定义
wdExtend1将当前的选择区域的结尾扩展到指定单位的结尾Const wdExtend=1
wdMove0取消当前的选择区域，

 

然后将光标移动到指定单位的结尾

Const wdMove=0
wdCollapseStart1取消当前的选择区域，然后将光标定位到开头Const wdCollapseStart=1
wdCollapseEnd0取消当前的选择区域，然后将光标定位到结尾Const wdCollapseEnd=0

1.使用Collapse方法快速取消选择内容区域，使光标不选中任何一个字符。

Visual Basic

Sub QQ1722187970() Const wdCollapseStart = 1 Const wdCollapseEnd = 0 With Word.Selection .Collapse (wdCollapseStart) '不带参数默认是wdCollapseStart .Collapse End With End Sub

1

2

3

4

5

6

7

8

9

Sub QQ1722187970()

    Const wdCollapseStart = 1

    Const wdCollapseEnd = 0

    With Word.Selection

        .Collapse (wdCollapseStart)

        '不带参数默认是wdCollapseStart

        .Collapse

    End With

End Sub

如果在word文档中选中了某段文本内容区域，则运行上述代码将取消选中文本内容区域，光标将定位在取消选择前的文本内容区域的起始位置。如果把参数改为wdCollapseEnd，则定位在结束位置。

如果要折叠的区域是一个段落，则wdCollapseEnd后将定位在当前段落标记符之后的一个字符前，也就是下一个段落的开头。如果要折叠的区域是整个word文档的最后一个段落，则wdCollapseEnd后将定位到最后一个段落标记符前。

可以用以下的代码进行验证：

Visual Basic

Sub QQ1722187970() Dim oDoc As Document Set oDoc = Word.ActiveDocument Dim oRng As Range Dim oP As Paragraph With oDoc Set oP = .Paragraphs(1) Set oRng = oP.Range Debug.Print oRng.Start, oRng.End oRng.Collapse 0 Debug.Print oRng.Start, oRng.End End With End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

Sub QQ1722187970()

    Dim oDoc As Document

    Set oDoc = Word.ActiveDocument

    Dim oRng As Range

    Dim oP As Paragraph

    With oDoc

        Set oP = .Paragraphs(1)

        Set oRng = oP.Range

        Debug.Print oRng.Start, oRng.End

        oRng.Collapse 0

         Debug.Print oRng.Start, oRng.End

    End With

End Sub

2.使用HomeKey和 EndKey方法使光标定位到指定单位内容的开头和结尾。

Visual Basic

Sub QQ1722187970() With Word.Selection .HomeKey wdLine Debug.Print .Start .EndKey wdLine Debug.Print .End End With End Sub

1

2

3

4

5

6

7

8

Sub QQ1722187970()

    With Word.Selection

        .HomeKey wdLine

        Debug.Print .Start

        .EndKey wdLine

        Debug.Print .End

    End With

End Sub

上述代码将返回光标所在的内容区域的那一行的开始位置和那一行的结束位置。

如果要从当前光标所在的位置开始扩展选择的话，可以添加第二个参数，代码如下：

Visual Basic

Sub QQ1722187970() With Word.Selection .HomeKey wdLine, wdExtend .EndKey wdLine, wdExtend End With End Sub

1

2

3

4

5

6

Sub QQ1722187970()

    With Word.Selection

        .HomeKey wdLine, wdExtend

        .EndKey wdLine, wdExtend

    End With

End Sub

经过测试，HomeKey和 EndKey方法的第一个参数unit只能用wdLine和wdStory，其它单位都不能用。

3.使用StartOf、EndOf方法实现与HomeKey、EndKey类似的效果。

4.使用Expand方法扩展当前的选择区域

代码如下：

Visual Basic

Sub QQ1722187970() With Word.Selection .Expand wdParagraph End With End Sub

1

2

3

4

5

Sub QQ1722187970()

    With Word.Selection

        .Expand wdParagraph

    End With

End Sub

它与EndOf、EndKey、HomeKey等方法不同的是，它会自动当当前选择区域左右扩展到指定的单位区域内，比如当选中某个段落中的某些文本内容时，使用上述代码将自动选中当前选择区域所在的整段段落区域。

5.使用Shrink方法不断地收缩选区

Shrink方法可以将当前的选择区域按照整个文档（entire document）,节（ section）,段落（ paragraph）,句子（ sentence）,单词（ word）,插入点（ insertion point）的顺序不断地收缩当前的选择区域。

6.使用Extend方法不断地扩展选区，或者按照指定的字符扩展选区。

与Shrink方法类似的，当使用Extend方法不带参数时，可以按照单词（word）,句子（ sentence）,段落（ paragraph）,节（ section）,整个文档（ entire document）这样的顺序依次扩展当前的选择区域。

当Extend方法带参数时，它可以带一个字符参数，表示将与当前选择区域的结尾位置开始向下寻找该字符，如果找到了就扩展当前的选区到该字符。这里要特别注意的就是，该参数只能是一个字符，如果超过一个字符，该方法将会无效。

代码如下：

Visual Basic

Sub QQ1722187970() With Word.Selection .Extend "点" End With End Sub

1

2

3

4

5

Sub QQ1722187970()

    With Word.Selection

        .Extend "点"

    End With

End Sub

利用这个方法可以实现很多逐字符判断的程序。

7.使用Move方法快速地前后移动任意的单位：

使用Move方法有两个参数，一个是Unit参数，表示要移动的单位，另一个参数是Count，表示要移动的单位数量，如果是负数则往前移动，如果是正数则往后移动。

比如如下的代码可以定位到中间的页面：

Visual Basic

Sub QQ1722187970() '当前位置插入一个分节符 Word.Selection.InsertBreak wdSectionBreakNextPage '继续插入一个分节符 Word.Selection.InsertBreak wdSectionBreakNextPage '定位到中间的页面 Word.Selection.Move wdSection, -1 End Sub

1

2

3

4

5

6

7

8

Sub QQ1722187970()

    '当前位置插入一个分节符

    Word.Selection.InsertBreak wdSectionBreakNextPage

    '继续插入一个分节符

    Word.Selection.InsertBreak wdSectionBreakNextPage

    '定位到中间的页面

    Word.Selection.Move wdSection, -1

End Sub

 

其它相关文章推荐：

vba word 查找_手把手教你批量处理WORD文档，菜鸟瞬间变大虾
weixin_39666496的博客
12-05 1693
在日常办公中，我们经常需要处理大量的WORD文档，很多情况下这些文档需要处理的操作是相同的，比如批量进行页面格式设置，批量替换某些文字等等，如果能够实现对这些文档的批量处理效率岂不高多了！下面教大家怎么实现，整个过程用到了Word的VBA编程，但是你根本不需要懂一句代码，通过四步就可以搞定。第一步：打开一个要处理的Word文档第二步：调出Word开发工具选项卡第三步：录制操作过程勾选后确定，会发现...
vba判断word文字颜色是否为蓝色.docx
09-27
vba判断word文字颜色是否为蓝色.docx
Word Vba技巧总结
飞翔的专栏
04-17 5266
确定文本是否被选定：If Selection.Type = wdSelectionIP Then MsgBox "Nothing is selected"word中选择单元格：Selection.SelectCell移动到选定内容之后：Selection.Collapse Direction:=wdCollapseEnd定位到Word中最后一行：Selection.EndKey unit:=wdS
Word文档中的高效文本处理：VBA编程的深度探索与实践
最新发布
这家伙很懒，什么都没有留下
09-05 1436
VBA是Visual Basic语言的一个子集，专为Microsoft Office应用程序（如Word、Excel等）设计。它允许用户通过编写自定义宏来自动化重复的任务、创建自定义功能，并扩展Office应用程序的内置功能。在Word中，VBA通过“开发者”选项卡下的“Visual Basic”按钮访问，为用户提供了一个强大的编程环境，用于编写和执行宏。
Word VBA中的光标操作
yivifu的专栏
01-02 8257
本文总结了Word VBA中的Selection常用操作，包括移动光标、查找和替换、输入内容、获取其他相关对象等，并附上了Information方法的参数详细说明。本文绝非简单照抄MSDN文档，而是包含了一些有一定难度的实用代码片段。
Word VBA: 根据光标位置一键选择上下文
TomasZh的博客
04-21 597
对于大篇幅的Word文档，有时会碰到好几页的段落、章节或表格，如果用鼠标拖动来选择文本就不太方便。以下代码实现了自动选择上下文，根据光标所在位置的大纲级别，自动选择正文、一个章节、同级别章节、整个表格等。
VBA在WORD应用中如何确定文本是否被选定
weixin_30784945的博客
09-14 563
确定文本是否被选定Selection 对象的 Type 属性返回所选内容类型的信息。如果所选内容为插入点，则下列示例显示一条消息。Sub IsTextSelected() If Selection.Type = wdSelectionIP Then MsgBox "Nothing is selected"End Sub折叠所选内容或区域使用 Collapse 方法可将 Select...
Word创建宏实现快速选中刚粘贴的文字
m0_72265583的博客
05-07 729
在Microsoft Word 文档中，刚粘贴到文档中的文字无法快速全部选中，一般需要重新用鼠标光标再次选中这些文字进行后续样式的修改，而本文通过Microsoft Word 文档的宏来实现快速选中刚粘贴到文档中的文字
处理Selection对象和Range对象——Word VBA中重要的两个对象
热门推荐
TJT999
06-30 4万+
处理Selection对象和Range对象——Word VBA中重要的两个对象Word 开发人员参考Selection 对象代表窗口或窗格中的当前所选内容。所选内容代表文档中选定（或突出显示）的区域，如果文档中没有选定任何内容，则代表插入点。每个文档窗格只能有一个Selection 对象，并且在整个应用程序中只能有一个活动的 Selection 对象。说明可以使
在WORD中用VBA实现光标移动与内容选择
weixin_30538029的博客
06-28 1270
在WORD中如何用VBA宏语言选定一行、一段，删除一行、一段，移动光标至行首、行尾、段首、段尾等。请看以下内容。 Sub MoveToCurrentLineStart() '移动光标至当前行首 Selection.HomeKey unit:=wdLine End Sub Sub MoveToCurrentLineEnd() '移动光标至当前行尾...
vba选中word的内容控件并把光标移动到这个控件的右边
05-30
如果您要选中 Word 中的内容控件，并将光标移动到该控件的右侧，可以使用以下 VBA 代码： ``` Sub SelectContentControlAndMoveCursor() '选中第一个内容控件 ActiveDocument.ContentControls(1).Range.Select ...
word vba将光标前面的所有内容选中
05-27
可以使用以下代码来实现将光标前面的...这段VBA代码首先将光标移动到文档开头，然后使用MoveEndUntil方法将选中区域扩展到第一个段落的结束符之前，最后使用MoveEnd方法将选中区域扩展到光标当前位置之前的所有内容。
Word VBA教程：查找并替换文字或格式
ls13552912394的博客
08-18 3万+
通过Find 和Replacement对象可实现查找和替换功能。Selection 和Range对象可以使用 Find对象。从 Selection 或 Range对象访问 Find对象时，查找操作会略有不同。 查找并选定文字 如果从 Selection对象访问 Find对象，当找到搜索条件时，就会更改所选内容。下列示例选定下一个出现的“Hello”。如果到达文档结尾时仍未找到“Hello”，则...
【Word Vba】关于range与selection的一些心得
dasfsdfgh的博客
04-25 449
在下述代码中，如果selection没有加range，则循环一次就会退出循环，因为光标位置动了之后，selection里就没有任何东西了。而加了range不同，因为始终是那几个范围（在不改变段落数的情况下）。1、Characters、Words、Sentences 集合中的每一项均为代表一个 Range 对象。不存在 Character、Word 、Sentence对象。3、如果范围内段落数改变了，不建议深入研究，只要记住有段落对象有paraID这个属性。
【一步一步学习VBA】在WORD中插入文字
自信的尘埃 www.gocpplua.com
08-03 1万+
1、在活动文档末尾插入文字： Sub InsertTextAtEndOfDocument() ActiveDocument.Content.InsertAfter Text:=" The end." End Sub 2、在所选内容前插入文字 Sub AddTextBeforeSelection() Selection.InsertBefore Text:="n
如何在Word中折叠和扩展文档的某些部分
09-13 2995
A new feature was introduced in Word 2013 that allows you to collapse parts of your document and expand them when you want to view that content again. This feature makes it easier to find and view onl...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值