【分享成果，随喜正能量】可以待人礼貌，但不要一副看起来「好欺负」的样子。来者不拒的帮忙、卑躬屈膝的姿态、毫无底线的跪舔，都会让你的生活一地鸡毛。不事后补刀。不要说“当初听我的”、“我就说嘛”这类风凉话，虽然说出来很爽，但无疑是给当事人的伤口撒盐，要么安慰他，要么给他提供帮助。
《VBA之Word应用》，是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容是第五章“Word中的Range对象（上）”第4节：Word文档中改变选择范围。
大家好，我们这讲继续Range对象属性的讲解，我们要通过Word VBA每个知识点的掌握，从而完善自己的知识结构。
1 Range.Start 属性这个属性返回或设置范围的起始字符位置。
语法：expression.Start
其中expression 为一个表示 Range 对象的变量。
Range 对象有起始和结束字符的位置。起始位置是指最接近此范围开头的字符位置。如果此属性设置为大于 End 属性的值，则 End 属性设置为与 Start 属性的值相同。
- 大家要注意，该属性返回的是起始字符相对于文档开头部分的位置。文本主体部分 (wdMainTextStory) 的起始字符位置为 0（零）。 通过设置该属性可以更改选定内容、区域或书签的大小。
返回或设置某区域中结束字符的位置。
语法：expression.End
其中expression 为一个表示 Range 对象的变量。
Range 对象均包含开始位置和结束位置。 结束位置是此范围开始距离最远的点。 如果此属性设置为小于Start属性的值, 则start属性将设置为相同的值 (即, start和End属性相等)。
- 大家要注意，此属性返回结束字符相对于开始部分的位置。 文档主体部分 (wdMainTextStory) 的起始字符位置为 0（零）。 通过设置该属性可以更改选定内容、区域或书签的大小。
这个属性返回或设置指定区域或选定内容中的文本。
语法：expression.Text
其中expression 为一个表示 Range 对象的变量。
- Text 属性返回该区域的无格式纯文本。 如果设置该属性，则将替换该区域中的现有文本。
下面我们将通过一个实例来看一下Range的Start 属性、End 属性、Text 属性的应用实例。我们先看下面的代码：
Sub mynzC()
[详细代码见教程]
End Sub
代码截图：
代码解读：
1） mys = ActiveDocument.Paragraphs(3).Range.Start
mye = ActiveDocument.Paragraphs(4).Range.End
Set myRange = ActiveDocument.Range(Start:=mys, End:=mye)
以上代码设定一个Range对象的开始和结束位置，并完成Range对象的设置。
2）MsgBox myRange.Text
以上代码显示Range对象的内容。
3）myRange.End = myRange.End – 10
以上代码改变Range对象的范围。
4）MsgBox myRange.Text
再次显示Range对象的内容。
下面看代码的运行情况：
今日内容回向：
1 什么是Word中Range对象的Start 属性、End 属性、Text 属性的意义是什么？
2 如何改变Range对象的范围，及显示Range对象的文本？
本讲内容参考程序文件：Doc 005文档.docm
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
【分享成果，随喜正能量】不要老想着接触有钱人，把时间用来提升自己，你能做大多数人做不到的事，社会含金量就越高，在富人眼里就是香饽饽。不要去接同事讨论的闲言碎语。有些是为了钓鱼而设的套，如果你去接话，就成了那条鱼。
,
