【分享成果，随喜正能量】人生必需品，无非三样：经济独立、人格健全、身体健康。其他种种，都是浮云。可惜的是，对于许多人来说，这些都是奢侈品。多赚点钱，可以解决人生大部分问题。赚钱的能力像其他能力一样，是可以不断学习、练习、提升的。薪水不够的话，试试兼职、副业。

《VBA之Word应用》，是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容是第五章“Word中的Range对象（上）”第10节：Word中Range对象的Collapse、Next和Previous方法。

第十节 Range对象的方法（四）

大家好，我们继续Range对象的方法学习，这讲的内容是掌握Collapse方法、Next方法和Previous方法。

1 Range.Collapse 方法

该方法将某一区域或所选内容折叠到起始位置或结束位置。 折叠之后起始位置和结束位置相同。

语法：expression.Collapse(Direction)

其中expression 是必需的，是一个代表 Range 对象的变量。

参数：Direction 可选Variant 折叠某区域或所选内容的方向。可以是wdCollapseEnd或wdCollapseStart。 默认值是 wdCollapseStart 。

2 Range.Next 方法

该方法返回一个Range对象, 该对象代表相对于指定范围的指定的单位。

语法：expression.Next (Unit, Count)

其中expression 是必需的，是一个代表 Range 对象的变量。

参数：

1）Unit 可选 Variant 要计算的单位类型。 可以是任何WdUnits常量。

2）Count 可选 Variant 要向前移动的单位数。 默认值为 1

3 Range.Previous 方法

该方法返回相对于指定范围的前一个范围。

语法：expression.Previous (Unit, Count)

其中expression 是必需的，是一个代表 Range 对象的变量。

参数：

1）Unit 可选 Variant 要计算的单位类型。 可以是任何WdUnits常量。

2）Count 可选 Variant 要向前移动的单位数。 默认值为 1

4 实例：所选范围的上一个单元和下一个单元

我们来根据实例的代码来掌握一些上面两个方法的应用，这个应用中会看到所选范围的上一个单元及下一个单元的调整。代码：

Sub mynzI()

'选择当前活动文档的第一段

Set myRange = ActiveDocument.Paragraphs(1).Range

myRange.Select

'将第一段下移两个段落

Selection.Range.Next(Unit:=wdParagraph, Count:=2).Select

'弹出此时选择的文本

MsgBox Selection.Text

'设置第一段倒数第5个词语的格式

With ActiveDocument.Words(ActiveDocument.Paragraphs(1).Range.Words.Count).Previous(Unit:=wdWord, Count:=5)

.Bold = True

.Font.Size = 17

End With

End Sub

代码截图：

代码的解读：

1）'选择当前活动文档的第一段

Set myRange = ActiveDocument.Paragraphs(1).Range

myRange.Select

以上代码选择当前活动文档的第一段

2）'将第一段下移两个段落

Selection.Range.Next(Unit:=wdParagraph, Count:=2).Select

以上代码选择当前活动文档的第一段选择下移两个段落

3)'弹出此时选择的文本

MsgBox Selection.Text

以上代码提示此时的选择段落的内容。

4）'设置第一段倒数第5个词语的格式

With ActiveDocument.Words(ActiveDocument.Paragraphs(1).Range.Words.Count)

.Previous(Unit:=wdWord, Count:=5)

.Bold = True

.Font.Size = 17

End With

以上代码设置第一段倒数第5个词语的格式。

下面看代码的运行结果：

今日内容回向：

1 Word中Range对象的Collapse方法、Next方法和Previous方法的意义是什么？

2 如何实现范围的上下单元的扩展？

本讲内容参考程序文件：Doc 005文档.docm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】拿你有的，换你要的。这个世界一直如此，很残酷，也很公平。从来没有一劳永逸的选择。关键是选择之后，你该做些什么。