(word文档专业版)(Word文档版本)

【分享成果，随喜正能量】可以待人礼貌，但不要一副看起来「好欺负」的样子。来者不拒的帮忙、卑躬屈膝的姿态、毫无底线的跪舔，都会让你的生活一地鸡毛。不事后补刀。不要说“当初听我的”、“我就说嘛”这类风凉话，虽然说出来很爽，但无疑是给当事人的伤口撒盐，要么安慰他，要么给他提供帮助。

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

第四节 Range对象的属性（三）

大家好，我们这讲继续Range对象属性的讲解，我们要通过Word VBA每个知识点的掌握，从而完善自己的知识结构。

1 Range.Start 属性

这个属性返回或设置范围的起始字符位置。

语法：expression.Start

其中expression 为一个表示 Range 对象的变量。

Range 对象有起始和结束字符的位置。起始位置是指最接近此范围开头的字符位置。如果此属性设置为大于 End 属性的值，则 End 属性设置为与 Start 属性的值相同。

• 大家要注意，该属性返回的是起始字符相对于文档开头部分的位置。文本主体部分 (wdMainTextStory) 的起始字符位置为 0（零）。 通过设置该属性可以更改选定内容、区域或书签的大小。

2 Range.End 属性

返回或设置某区域中结束字符的位置。

语法：expression.End

其中expression 为一个表示 Range 对象的变量。

Range 对象均包含开始位置和结束位置。 结束位置是此范围开始距离最远的点。 如果此属性设置为小于Start属性的值, 则start属性将设置为相同的值 (即, start和End属性相等)。

• 大家要注意，此属性返回结束字符相对于开始部分的位置。 文档主体部分 (wdMainTextStory) 的起始字符位置为 0（零）。 通过设置该属性可以更改选定内容、区域或书签的大小。

3 Range.Text 属性

这个属性返回或设置指定区域或选定内容中的文本。

语法：expression.Text

其中expression 为一个表示 Range 对象的变量。

• Text 属性返回该区域的无格式纯文本。 如果设置该属性，则将替换该区域中的现有文本。

4 实例：改变Range范围，显示值

下面我们将通过一个实例来看一下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实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】不要老想着接触有钱人，把时间用来提升自己，你能做大多数人做不到的事，社会含金量就越高，在富人眼里就是香饽饽。不要去接同事讨论的闲言碎语。有些是为了钓鱼而设的套，如果你去接话，就成了那条鱼。