【分享成果，随喜正能量】人生有四苦：一是看不透 。看不透人际中纠结，争斗后隐伤 ， 看不透喧嚣中平淡，繁华后的宁静 。二是舍不得 。舍不得曾经的精彩，不逮的岁月，舍不得居高时的虚荣 ， 得意处的掌声 。三是输不起 。输不起一段情感之失，输不起一截人生之败 。四是放不下 。放不下已经走远的人与事，放不下早已尘封的是与非 。?? 。
《VBA之Word应用》（10178982），是我推出第八套教程，教程是专门讲解VBA在Word中的应用 ， 围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处 。本套教程共三册十六章 ， 今日内容为第一章部分：对Word中对象（Objects）的理解及示例
第三节 Word中对象（Objects）的理解及示例
大家好，我们继续WORD VBA的讲解，这讲的内容仍是基本知识的讲解 。在上两节中，我们介绍了如何录制宏及运行宏，接下来的内容是理解Word中对象（Objects）、属性（Properties）和方法（Methods），在之前的讲解中，我曾经讲过，VBA是面向对象的编程语言，学习VBA的过程就是深入理解对象（Objects）、属性（Properties）和方法（Methods）以及事件（Event）的过程，Word VBA的学习过程也是如此，我们要理解Word这个应用程序中的对象有哪些？对象的属性有哪些？对象的方法有哪些？作为一项基本的知识点理解 ， 我在接下来的几节中给大家详细地介绍 。1 Word 中的对象（objects）和集合（collections）
对象表示 Word 的元素（Element），如文档（Document）、段落(Paragraph)、书签(Bookmark)或单个字符(character) 。集合是包含多个对象（通常为相同类型）的对象，例如，文档中的所有书签对象都包含在一个集合对象中 。通过使用属性（Properties）和方法（Methods） ， 可以更改单个对象或整个对象集合 。下面通过文档（Document）、段落(Paragraph)两个对象给大家简单地说明一下对象的概念及操作 。2 Document对象和Documents集合
Document对象，代表一个文档,是Documents集合的一个成员 。Documents 集合包含Word中当前打开的所有Document对象 。使用 Documents(index), 其中index是文档名称或索引号, 返回单个文档对象 。下面的示例在不保存更改的情况下关闭名为 "示例01.doc" 的文档 。
Sub mynzB()
Documents("示例01").Close SaveChanges:=wdDoNotSaveChanges
End Sub
索引编号代表文档在 Documents 集合中的位置 。以下示例激活 Documents 集合中的第一篇文档 。
Sub mynzC()
Documents(1).Activate
End Sub
可以使用ActiveDocument属性来引用具有焦点的文档 。下面的示例使用activate方法激活名为“示例01”的文档 。示例还会将页面方向设置为横向模式，然后再打印文档 。
Sub mynzD()
Documents("示例01").Activate
ActiveDocument.PageSetup.Orientation = wdOrientLandscape
ActiveDocument.PrintOut
End Sub
3 Paragraph对象和Paragraphs 集合
Paragraph对象，代表所选内容、范围或文档中的一个段落 。Paragraph对象是Paragraphs集合的成员 。Paragraphs集合包含所选内容、范围或文档中的所有段落 。使用 Paragraphs(Index)可返回一个Paragraph对象，其中Index为索引号 。以下示例将活动文档中的第一段右对齐 。
Sub mynzE() '将活动文档中的第一段右对齐 。
Dim myDoc As Document
Set myDoc = Documents.Open(ActiveDocument.Path & "示例01.docx")
Documents("示例01").Activate
ActiveDocument.Paragraphs(1).Alignment = wdAlignParagraphRight
End Sub
代码的截图：
代码的执行效果：
使用add、InsertParagraph、InsertParagraphAfter或InsertParagraphBefore方法可向文档中添加一个新的空白段落 。
以下示例在所选内容的第一段前添加一个段落标记 。
Sub mynzF() '所选内容的第一段前添加一个段落标记
Dim myDoc As Document
Set myDoc = Documents.Open(ActiveDocument.Path & "示例01.docx")
Documents("示例01").Activate
Selection.Paragraphs.Add Range:=Selection.Paragraphs(1).Range
End Sub
代码的截图：
代码的执行效果：
以下示例同样在所选内容的第一段前添加一个段落标记 。
Selection.Paragraphs(1).Range.InsertParagraphBefore
今日内容回向：
1 如何理解Word中的对象和集合？
2 Word中的对象主要有哪些？
3 什么是Document对象和Documents集合？
4 什么是Paragraph对象和Paragraphs集合？
本讲内容参考程序文件：Doc 001文档.docm
分享成果，随喜正能量
我20多年的VBA实践经验，全部浓缩在下面的各个教程及应用工具中：
【WORD中对象怎么对齐 对Word中对象】【分享成果 ， 随喜正能量】 人生百味，情最浓，人生繁华，淡最真，人生一路，一步有一步的风景，一程有一程的感悟 ， 不论时光如何流转，有些东西不会改变 ， 那就是对美好的追求，对真情的渴望，给自己一份淡然 ， 不困于情，不憾于心，无悔于生命，充实于生活，平和于心态 ， 守一份心净，淡淡就好 。。