【分享成果，随喜正能量】在善意的“双向奔赴”中，每个普通人都如星辰，微小但释放着自己的光芒，交织成灿烂的星河。人生这条路很长，未来如星辰大海般璀璨，不必踟躇与过去的半亩方塘。那些所谓的遗憾，可能是一种成长那些曾受过的伤，终会化作照亮前路的光。
《VBA之Word应用》，是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容第七章 “Word中的Selection对象”,第1节：显示文档所选区域字符，并添加文档作者
大家好，我们在这章的引言部分明确了什么是Selection对象，Selection对象表示窗口或窗格中的当前所选内容。选定内容表示文档中的选定（或突出显示）区域，或者代表插入点（如果未选择文档中的任何内容）。这节的内容是Selection对象的属性，我们先讲解Characters 属性、End 属性、Start 属性。
1 Selection.Characters属性这个属性返回一个表示文档、区域或所选内容中的字符的 Characters集合，为只读属性。
语法：expression.Characters
其中expression为一个代表Selection对象的变量。
2 Selection.End属性这个属性返回或设置所选内容的结束字符位置。
语法：expression.End
其中expression为一个代表Selection对象的变量。
- 如果此属性设置为一个值小于Start属性， Start属性设置为相同的值 (即，Start和End 属性相等)。
- Selection 对象有一个起始位置和结束位置。 结束位置是距离内容开始最远的点。此属性返回结束字符相对于开始部分的位置。文档主要文字部分 (wdMainTextStory) 的起始字符位置为0。 通过设置该属性可以更改选定内容的大小。
此属性返回或设置选定内容的起始字符位置。
语法：expression.Start
其中expression为一个代表Selection对象的变量。
- Selection 对象具有起始字符位置和结束字符位置。 内容的开头最近的字符位置引用的位置为起始位置。如果此属性设置为一个值大于 End 属性， End 属性设置为Star属性中的值相同。
- 该属性返回起始字符相对于文档开头部分的位置。文本主体部分 (wdMainTextStory) 的起始字符位置为0（零）。 通过设置该属性可以更改选定内容、区域或书签的大小。
下面我们通过一个实例来显示所选择区域的长度及某个字符，并在所选择区域的换行符之后添加文档的作者。我们看下面的代码：
Sub mynz()
'选择第三个自然段
Set myRange = ActiveDocument.Paragraphs(3).Range
myRange.Select
'显示所选内容的第3个字符。如果没有选定任何内容，则显示插入点后的第一个字符。
myChar = Selection.Characters(3).Text
MsgBox "所选择的第三个字符是：" & myChar
'通过起始和结束字符位置确定选定内容的长度
myL = Selection.End - Selection.Start
MsgBox "所选择的长度是：" & myL
'检索选定内容的结束位置。该值用于创建一个区域，以便在选定内容之后插入一个字段。
t = Selection.End
Set myRange = ActiveDocument.Range(Start:=t, End:=t)
ActiveDocument.Fields.Add Range:=myRange, Type:=wdFieldAuthor
End Sub
代码截图：
代码解读：
1）Set myRange = ActiveDocument.Paragraphs(3).Range
myRange.Select
以上代码选择当前文档的第三个自然段。
2）myChar = Selection.Characters(3).Text
MsgBox "所选择的第三个字符是：" & myChar
以上代码显示所选内容的第3个字符。 如果没有选定任何内容，则显示插入点后的第一个字符。
4） myL = Selection.End - Selection.Start
MsgBox "所选择的长度是：" & myL
以上代码显示所选择的长度，注意是包含换行符的
5） t = Selection.End
Set myRange = ActiveDocument.Range(Start:=t, End:=t)
ActiveDocument.Fields.Add Range:=myRange, Type:=wdFieldAuthor
以上代码检索选定内容的结束位置。该值用于创建一个区域，以便在选定内容之后插入一个字段。注意此时的myRange不同于前面的myRange了。
代码的运行效果：
