【分享成果，享受正能量】人生三大需要：经济独立、人格健康、健康。其他一切都只是浮云。不幸的是，对于许多人来说，这些都是奢侈品。生活中的大部分问题都可以通过赚更多的钱来解决。赚钱的能力，就像任何其他能力一样，可以不断学习、练习和提高。如果你的薪水不够，可以尝试兼职或副业。
《VBA之Word应用》是我开始的第8套教程，主要讲解VBA在Word中的应用。首先，我们来谈谈Word中的VBA对象。我们将讲解对象的属性和方法，并通过示例向大家展示Word VBA的美妙之处。本教程集共3 卷、16 章，今天的主题是第5 章“Word 的范围对象（第1 部分）”、第10 节：Word 的范围对象的折叠、下一个和上一个方法。
第十节 Range对象的方法（四）
大家好，我们继续学习Range对象的方法。本课的目的是掌握Collapse方法、Next方法、Previous方法。
1 Range.Collapse 方法
此方法将范围或选择折叠到开始或结束位置。 折叠后，起始位置和结束位置将相同。
语法：表达式.Collapse(方向)
这里，表达式是必需的，并且是表示Range 对象的变量。
参数：Direction 可选变体折叠特定区域或选定内容的方向。您可以指定wdCollapseEnd 或wdCollapseStart。 默认值为wdCollapseStart。
2 Range.Next 方法
此方法返回一个Range 对象，表示指定范围的指定单位。
语法：表达式.Next(单位， 数字)
这里，表达式是必需的，并且是表示Range 对象的变量。
参数：
1) 单位可选变体要计算的单位类型。 可以是任何WdUnits 常量。
2) 计算可选变体要前进的单位数。 默认值为1
3 Range.Previous 方法
此方法返回相对于指定范围的上一个范围。
语法：表达式.before（单位，数字）
这里，表达式是必需的，并且是表示Range 对象的变量。
参数：
1) 单位可选变体要计算的单位类型。 可以是任何WdUnits 常量。
2) 计算可选变体要前进的单位数。 默认值为1
4 实例：所选范围的上一个单元和下一个单元
下面我们通过示例代码来掌握上述两种方法的一些应用。该应用程序检查所选范围的上一个和下一个单位调整。代码：
提交I()
'选择当前活动文档的第一段
设置myRange=ActiveDocument.Paragraphs(1).Range。
myRange.Select
'将第一段向下移动两段
Selection.Range.Next(Unit:=wdParagraph, Count:=2).Select
'弹出当前选中的文本
MsgBox选择.文本
'格式化第一段最后一段中的第五个单词
如果ActiveDocument.Words(ActiveDocument.Paragraphs(1).Range.Words.Count).Previous(Unit:=wdWord, Count:=5)
.粗体=真实
.字体大小=17
结束于
结束子
代码截图：
代码解释：
1) '选择当前活动文档的第一段
设置myRange=ActiveDocument.Paragraphs(1).Range。
myRange.Select
上面的代码将选择当前活动文档的第一段。
2) '将第一段向下移动两段
Selection.Range.Next(Unit:=wdParagraph, Count:=2).Select
上面的代码选择当前活动文档的第一段并将其向下移动两段。
3)'弹出当前选中的文本
MsgBox选择.文本
上面的代码请求此时所选段落的内容。
4) '格式化第一段最后一段中的第5个单词
使用ActiveDocument.Words(ActiveDocument.Paragraphs(1).Range.Words.Count) 时
.上一页(Unit:=wdWord, Count:=5)
.粗体=真实
.字体大小=17
结束于
上面的代码将格式化第一段最后一段中的第五个单词。
让我们运行代码并查看结果。
今日内容反馈：
1 Word Range对象的Collapse、Next、Previous方法是什么意思？
2 如何实现上下范围单位扩展？
本次讲座内容请参考程序文件：Doc 005 document.docm。
我20 多年的VBA 实践经验都已浓缩到以下教程中。
【分享你的成果，欢喜正能量】拿你所拥有的，换你想要的。世界总是这样，残酷又公平。从来没有一次性的选择。重要的是你做出选择后做什么。
版权声明：本文由今日头条转载，如有侵犯您的版权，请联系本站编辑删除。