Word VBA 学习交流资料之三

Word VBA 学习交流资料之三感想：有感于国人的Word水平比较低，尤其是VBA这一块，本人想请大家一起学习VBA，在提高自身的能力同时帮助需要帮助的人。

感谢：绿叶的建群之功，也感谢you兄、八爪鱼兄的热烈支持，更感谢大家的大力支持！学前必备：Word VBA帮助（2003或别的都行，大体相当）（没有也没有关系，在这里，大多看到的就是复制自“帮助”的。

）可选工具：金山词霸（对E文不太懂的人，尤其重要）语法工具：共享区的VBS（感谢七兄）学习方法：“不求甚解”（一开始，不太懂，没关系，坚持下去就懂了。

）学习步骤：看到例子时，复制到VBE编辑器中运行一次，看一下结果（最好按F8，一步一步地看）必要指出：是“互学”，错误或不妥之处难免！因鄙人也是一边看帮助，一边写。

开始之前：高唱国歌（最好能喊：自强不息！）―――――――――――――――Start：将Range 对象赋给变量有多种方法将现有的Range对象赋给变量。

本主题对两种不同的方法进行了阐述。

在下列示例中，将Range对象赋给变量Range1 和Range2。

例如，下列指令（通俗的话就是：下列语句）将活动文档中的第一个和第二个单词赋给变量Range1 和Range2。

Set Range1 = ActiveDocument.Words(1)Set Range2 = ActiveDocument.Words(2)'注意：1. Words对象是Range对象，它不存在Word对象，你可以这样命名：dim word1 as range,，但是dim word1 as word是不行的，也是错的。

2. Words直观的说就是单词，那么，什么是单词呢？中文中没有单词的概念啊！可以这样来理解，英文的单词是以空格分隔的，所以单词就是二个空格之间的字母加空格。

（实验证明，确实是这样的）不过，这与我们的关系不大（因为我们大多处理的是中文）。

那么中文的“Word”是怎么回事呢？是词组？还是每个汉字呢？其实我也不知道，我是这样来做的，在VBA中输入如下的程序：Sub 中文Word()Dim range1 As RangeSet range1 = ActiveDocument.Words(1)range1.selectMsgBox range1End Sub再新建一个Word，输入这样的的汉字“[ a 彼岸赋好彼岸变量”（不包括红色的双引号），按F8分别测试Words(1)、Words(2)、Words(3)、Words(4)、Words(5)、Words(6)等，发现什么没有。

我发现了如下的规律：①标点符号在中文中算是一个Word单位；②字母或者单词后面的空格不算一个Word单位，再英文如果没有结标记则包括后面的空格（例如："a the as."，则第一个是a ，（注意后面有空格），当然最后的.不包括在前一个as内。

所以，以上总共有4个Words，你可以用这个来测试。

ActiveDocument.Words(1).Select，ActiveDocument.Words.count）；③除此以外，只有汉字与汉字之间的空格算一个Word单词；④有的Word是一个汉字，有的是二个汉字，可能有的还是三个汉字，这是为什么呢？我们打开微软的输入法，再用“彼岸”及“变量”的拼音输入，可以看到这是一个词组(如下图)所以我想，有的一个是汉字，有的二个是汉字，他“可能”是根据微软的输入法中的词组定义相一致的。

⑤当然，你也可以看看Words集合来看一下这个对象。

当然，可能没我说的简单、易懂。

当然words对象的不确定性，决定了他使用的频率。

如果你看懂我的上面所说，对于words对象基本就OK了。

'注意range对象的赋值就是这样set a=b ，变量的赋值就是a=1，但对象就必须这样赋值！(包括任意的对象，Set是对对象赋值的标准语句)将一个Range 对象变量设置为等于另一个Range 对象变量下列指令（语句）将名为Range2 的区域变量设为与Range1 代表的位置相同。

Set Range2 = Range1 '译为：设置Range2对象与Range1 代表的位置相同现在两个变量代表同一区域。

修改Range2 的起点、终点或其中的文本将影响Range1，反之亦然。

请注意，以下指令等价于Range2.Text = Range1.Text。

该指令指定Range2 的默认属性（Text属性）为Range1 的默认属性。

但该指令并不修改其实际引用的对象。

Range2 = Range1Range2 和Range1 区域具有相同的内容，但它们可能对应文档中的不同位置，甚至对应不同的文档。

'上面这句有点难懂，用程序来说明吧（以后大多是这样，因为我们是学习VBA，只有通过程序来说明内容）Sub 测试Range1等于Range2()Dim range1 As Range, range2 As RangeSet range1 = ActiveDocument.Range(0, 1) '文档的第一个区域（字）Set range2 = ActiveDocument.Range(1, 2) '文档的第二个区域（字）MsgBox range1 '输出第一个字MsgBox range2 '输出第二个字range2 = range1 '把第一个（字）的区域的字赋值给第二个区域MsgBox range2 '输出第二个区域（字）'为什么我把字后面加括号，因为我们设置的是区域，就是范围小了点的区域，'就一个字的区域，所以，也是字，但区域更准确。

End Sub当然，与第一例子类似，要新建一个文档，输入一定（只要二个）字来做测试，按F8一步一步来看，也行。

友情提醒：以后大多是这样：新建、输入、然后把代码复制到VBE中来测试。

使用Duplicate（复制）属性下列指令创建一个Range对象的新副本Range2，它与Range1有相同的起点、终点和文本。

Set Range2 = Range1.Duplicate对Range1 起点或终点的修改不影响Range2，反之亦然。

但是，由于这两个区域指向文档中的同一位置，对一个区域中文本的修改将影响另一个区域中的文本。

'我不知道为什么要使用这个Duplicate属性，上面都说是了Set range2=range1不是好用的很吗？不明白啊，或许以为你会发现的。

修改文档的某一部分（以后为细说对象时，说到这些，现在大致了解一些关键的东东）Visual Basic 包含一些对象，可用这些对象修改下列文档元素：字符、单词、句子、段落和节。

下表包含与这些文档元素相对应的属性和这些属性返回的对象。

表达式返回的对象Words(index) Range（注意Words返回的是Range对象）Characters(index) Range （注意Characters返回的是Range对象）Sentences(index) Range （注意Sentences返回的是Range对象）Paragraphs(index) ParagraphSections(index) Section（这个是“节”，就是插入、分隔符中的“节”）如果使用这些属性时不带索引序号，则返回一个具有相同名称的集合对象。

例如，Paragraphs属性返回Paragraphs集合对象。

但是如果通过索引序号识别集合中的一项，则返回上表中第二列中的对象。

例如，Words(1) 返回一个Range对象（注意不是Word 对象噢）。

有了一个Range对象之后，可以使用任何区域属性或方法修改该Range对象。

例如，下列指令将所选内容的第一个单词复制到“剪贴板”。

Sub CopyWord()Selection.Words(1).CopyEnd Sub'仅供参考！注释Paragraphs和Sections集合中的项是该集合的单个成员，而不是Range 对象。

但是（返回Range对象的）Range属性对Paragraph和Section对象都可用。

例如，下列指令将活动文档的第一段复制到“剪贴板”。

Sub CopyParagraph()ActiveDocument.Paragraphs(1).Range.CopyEnd Sub上述表格中的所有文档元素属性对Document、Selection和Range对象都可用。

下列示例阐明了如何使用Document、Selection和Range对象的这些属性。

下列示例设置活动文档中第一个单词的大小写。

Sub ChangeCase()ActiveDocument.Words(1).Case = wdUpperCaseEnd Sub下列示例将当前节的下边距设为0.5 英寸（前台是通过页边距来做）。

Sub ChangeSectionMargin()Selection.Sections(1).PageSetup.BottomMargin = InchesToPoints(0.5)End Sub下列示例将活动文档的字符间距设为两倍（Content属性返回一个Range对象）。

Sub DoubleSpaceDocument()ActiveDocument.Content.ParagraphFormat.Space2 'Space2是2倍的缩写End Sub修改一组文档元素若要修改由一组文档元素（字符、单词、句子、段落或节）组成的某区域的文字，需要创建一个Range对象。

Range方法根据开始和结束位置可创建Range对象。

例如，下列指令创建一个Range对象，该对象引用活动文档的前十个字符。

Sub SetRangeForFirstTenCharacters()Dim rngTenCharacters As RangeSet rngTenCharacters = ActiveDocument.Range(Start:=0, End:=10)End Sub'没记错的话，这个例子以前用过，以后有这种情况，就是一个例子反复使用，但角度不同。

使用Range对象的Start和End属性可创建一个新的Range对象，该对象引用一组文档元素。

例如，下列指令创建一个引用活动文档中前三个单词的Range对象(myRange)。

Sub SetRangeForFirstThreeWords()Dim docActive As DocumentDim rngThreeWords As RangeSet docActive = ActiveDocument '设置变量Set rngThreeWords = docActive.Range(Start:=docActive.Words(1).Start, _ End:=docActive.Words(3).End)End Sub下列示例创建一个Range对象(aRange)，该对象从第二段的开头开始，在第三段之后结束。