显示文档所选区域字符，并添加文档作者

VBA语言専攻 06-21 154

前言：

而今朋友们对“word区域代码已更改”大体比较关注，大家都想要学习一些“word区域代码已更改”的相关内容。那么小编在网摘上汇集了一些有关“word区域代码已更改””的相关资讯，希望小伙伴们能喜欢，同学们一起来学习一下吧！

【分享成果，随喜正能量】在善意的“双向奔赴”中，每个普通人都如星辰，微小但释放着自己的光芒，交织成灿烂的星河。人生这条路很长，未来如星辰大海般璀璨，不必踟躇与过去的半亩方塘。那些所谓的遗憾，可能是一种成长那些曾受过的伤，终会化作照亮前路的光。

《VBA之Word应用》，是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容第七章 “Word中的Selection对象”,第1节：显示文档所选区域字符，并添加文档作者

第一节 Selection 对象的属性（一）

大家好，我们在这章的引言部分明确了什么是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。通过设置该属性可以更改选定内容的大小。3 Selection.Start属性

此属性返回或设置选定内容的起始字符位置。

语法：expression.Start

其中expression为一个代表Selection对象的变量。

Selection 对象具有起始字符位置和结束字符位置。内容的开头最近的字符位置引用的位置为起始位置。如果此属性设置为一个值大于 End 属性， End 属性设置为Star属性中的值相同。该属性返回起始字符相对于文档开头部分的位置。文本主体部分 (wdMainTextStory) 的起始字符位置为0（零）。通过设置该属性可以更改选定内容、区域或书签的大小。4 实例：显示所选区域长度及字符，并添加文档作者

下面我们通过一个实例来显示所选择区域的长度及某个字符，并在所选择区域的换行符之后添加文档的作者。我们看下面的代码：

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

'检索选定内容的结束位置。该值用于创建一个区域，以便在选定内容之后插入一个字段。