《VBA之Word应用》，是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容第六章 “Word中的Range对象（下）”第4节：在文档中插入分页符及位置的扩展
第四节 Range对象的方法（八）
大家好，我们这讲继续Range对象方法的讲解，在上一讲中我们讲解了Range对象的SetRange 方法、PasteAndFormat方法、PasteSpecial 方法，这节我们将讲解Select方法、GoTo方法、Expand 方法。
1 Range.Select方法
此方法选择指定的范围。
语法：expression.Select
其中expression 是必需的，是一个代表Range对象的变量
2 Range.GoTo方法
此方法返回一个 Range 对象，该对象表示指定的item，如页、书签或字段的起始位置。
语法：expression. GoTo(What,Which,Count,Name)
其中expression 是必需的，是一个代表Range对象的变量
参数：
1）What 可选 Variant 范围要移动到的项的类型。 可以是wdGoToItem常量之一。
2）Which 可选 Variant 范围要移动到的项。 可以是**wdGoToDirection** 常量之一。
3）Count 可选 Variant 在文档中的项的数目。 默认值为 1。 只有正值是有效的。 要指定之前范围的项，请使用 wdGoToPrevious 作为其参数并指定计数值。
4）Name 可选 Variant 如果哪些参数是wdGoToBookmark、wdGoToComment、 wdGoToField或wdGoToObject ，则此参数指定一个名称。 只有正值是有效的。 要指定之前范围的项，请使用 wdGoToPrevious 作为其参数并指定计数值。
3 Range.Expand方法
扩展指定的区域或所选内容。返回添至该区域或所选内容的字符数.
语法：expression. Expand(Unit)
其中expression 是必需的，是一个代表Range对象的变量
参数：
1）Unit 可选 Variant 度量单位以展开该区域。 可以是下列的移常量之一: wdCharacter、wdWord、wdSentence、wdParagraph、wdSection、wdStory、wdCell wdColumn、 wdRow或wdTable.
WdGoToItem 常量枚举值：
wdGoToBookmark -1 书签bookmark.
wdGoToComment 6 批注 comment.
wdGoToEndnote 5 尾注endnote.
wdGoToEquation 10 公式equation.
wdGoToField 7 域 field.
wdGoToFootnote 4 脚注 footnote.
wdGoToGrammaticalError 14 语法错误grammatical error.
wdGoToGraphic 8 图形graphic.
wdGoToHeading 11 标题 heading.
wdGoToLine 3 线段 line.
wdGoToObject 9 对象 object.
wdGoToPage 1 页 page.
wdGoToPercent 12 百分比 percent.
wdGoToProofreadingError 15 校对错误proofreading error.
wdGoToSection 0 节 section.
wdGoToSpellingError 13 拼写错误 spelling error.
wdGoToTable 2 表格table.
WdGoToDirection 常量枚举值：
wdGoToAbsolute 1 绝对位置.
wdGoToFirst 1 所指定对象的第一个实例.
wdGoToLast -1 所指定对象的最后一个实例
wdGoToNext 2 所指定对象的下一个实例
wdGoToPrevious 3 所指定对象的上一个实例。
wdGoToRelative 2 相对于当前位置的位置
4 实例：选择某范围，然后移动光标到其他位置并扩展
我们下面就一个实例来讲解一下本节方法的应用。这讲的实例中：首先选择活动文档的的第二段作为基础，然后在活动文档倒数第二段之后插入一个分页符,分页。并将光标转到第二页开始，扩展到整个段落。我们看代码：
Sub mynzC()
Set myRange = ActiveDocument.Paragraphs(2).Range
myRange.Select
MsgBox myRange.Text
‘活动文档倒数第二段之后插入一个分页符,也就是将最后一段分页
With myRange
.Collapse Direction:=wdCollapseEnd
.InsertBreak Type:=wdPageBreak
End With
‘将光标转到第二页开始
myRange.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=2
myRange.Select
‘将myRange范围扩展到第二页光标所在的整个段落
‘myRange.SetRange Start:=Selection.Range.Start, End:=Selection.Paragraphs(1).Range.End
myRange.Expand Unit:=wdParagraph
myRange.Select
MsgBox myRange.Text
End Sub
代码截图：
代码解读：
这里只给大家讲解一下将myRange范围扩展到第二页光标所在的整个段落的方法，这里给出了两种代码：
其一：myRange.SetRange Start:=Selection.Range.Start, End:=Selection.Paragraphs(1).Range.End
这句代码利用的是SetRange扩展调整开始和结束的位置。
还有一种方案是直接扩展：myRange.Expand Unit:=wdParagraph
以上两种方案都是可以的。
代码的运行效果：
本文内容来自网友供稿，文章观点仅代表作者本人，本站非盈利且无偿提供信息存储空间服务，不拥有所有权，如有文章有不实信息或侵犯了您的权益，请发送邮件至 cfseo1997@163.com 反馈核实，如需转载请注明出处：https://www.taobobolive.com/56400.html
