luda 【成果共享，顺熙正能量】根本没有那条“更好的路”。只有一条路，就是你选择的那条路。关键是你要勇往直前，还要坚持走下去。
《VBA之Word应用》，我推出的第八个教程，教程专门讲解VBA在Word中的应用，以“面向对象编程”为中心，首先在Word中了解VBA的对象和对象的属性、方法，然后通过例子感受Word VBA的妙处，本教程共3卷16章，今天第6章。
第四节范围对象方法(8)
大家好，我们继续讲Range对象方法，上节课我们将讨论Range对象的SetRange方法、PasteAndFormat方法、PasteSpecial方法，这一节将介绍Select方法、GoTo方法、Expand方法。
1 Range。Select方法
此方法选择命名范围。
语法：ex
其中expression是必需的，是表示Range对象的变量
2 Range。GoTo方法
此方法返回表示指定项目(如页面、书签或字段的开始位置)的Range对象。
语法：expression.goto (what、which、count、name)
其中expression是必需的，是表示Range对象的变量
参数：
1)要移动What可选变量范围的项目类型。可以是WdGoToItem常量之一。
2)要移动Which可选变量范围的项目。**wdGoToDirection**可以是常数之一。
3)计数可选变量文档中的条目数。默认值为1。只有正值有效。要指定上一范围的项目，请使用wdGoToPrevious作为参数，并指定计数值。
4)Name可选变量如果任何参数为wdGoToBookmark、wdGoToComment、wdGoToField或wdGoToObject，请指定名称。只有正值有效。要指定上一范围的项目，请使用wdGoToPrevious作为参数，并指定计数值。
3 Range。Expand方法
扩展指定的区域或选区。返回添加到区域或选定内容的字符数。
语法：expression.expand(单位)
其中expression是必需的，是表示Range对象的变量
参数：
1)使用单位可选变量度量单位扩展区域。以下移动常数之一： 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语法错误GrammaticalError。
WdGoToGraphic 8图形图形。
WdGoToHeading 11标题Heading。
WdGoToLine三线。
WdGoToObject 9对象对象。
WdGoToPage第1页第页.
WdGoToPercent 12% percent。
WdGoToProofreadingError 15校正错误ProofreadingError。
WdGoToSection 0部分Section。
WdGoToSpellingError 13拼写错误SpellingError。
WdGoToTable 2表Table。
WdGoToDirection常量枚举值：
WdGoToAbsolute 1绝对位置。
指定给WdGoToFirst 1的对象的第一个实例。
由WdGoToLast -1指定的对象的最后一个实例
指定为WdGoToNext 2的对象的下一个实例
WdGoToPrevio
us 3 所指定对象的上一个实例。wdGoToRelative 2 相对于当前位置的位置
4 实例：选择某范围，然后移动光标到其他位置并扩展
我们下面就一个实例来讲解一下本节方法的应用。这讲的实例中：首先选择活动文档的的第二段作为基础，然后在活动文档倒数第二段之后插入一个分页符,分页。并将光标转到第二页开始，扩展到整个段落。我们看代码：
Sub mynzC()
Set myRange = Ac(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:=Selec, End:=Selec(1).Range.End
myRange.Expand Unit:=wdParagraph
myRange.Select
MsgBox myRange.Text
End Sub
代码截图：
代码解读：
这里只给大家讲解一下将myRange范围扩展到第二页光标所在的整个段落的方法，这里给出了两种代码：
其一：myRange.SetRange Start:=Selec, End:=Selec(1).Range.End
这句代码利用的是SetRange扩展调整开始和结束的位置。
还有一种方案是直接扩展：myRange.Expand Unit:=wdParagraph
以上两种方案都是可以的。
代码的运行效果：
今日内容回向：
1 Word中Range对象的Select方法、GoTo方法、Expand 方法的意义是什么？
2 如何利用VBA移动及扩展某区域？
本讲内容参考程序文件：Doc 006文档.docm
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
【分享成果，随喜正能量】做事，就两个字：坚持，多坚持一会，多忍耐一次，也许就会有意外的惊喜。