《VBA之Word应用》（版权10178982），是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。
这套教程是专门针对WORD VBA 的教程，是VBA中的稀缺资源，我给这套教程分归为中级教程，希望大家在VBA入门后再学习这套教程，这样会更加深入的理解面向对象编程的意义。
本套教程共三册十六章，今日内容为第二章部分：VBA之Word应用第三章第一节:文档集合Documents 对象
【分享成果，随喜正能量】真正念佛人，他心中没有恶念，他的心地清净慈悲，你坐在他身旁，你会感觉到身心非常舒畅。外国人讲磁场，念佛人的磁场好，确确实实跟一般人不一样！
思想纯正，没有杂念，心地清净、真诚、慈悲，所以你整个体质都发生了大的变化，这就能够度化众生。众生看到你，你不必讲话，看你这样子就行了。。
第三章 文档集合Documents对象及文档Document对象
大家好，我们继续Word VBA的讲解。这讲开始，我们进入非常重要一章的学习，文档集合Documents对象及文档Document对象。在前面的讲解中我们可以大概看出文档和文档集合在Word VBA中的作用，很多的对象都是文档对象属性的返回对象，我们通过这章的学习要掌握Word VBA的基本应用。
第一节 文档集合Documents 对象（一）
我们首先来讲解文档集合对象，这个对象表示Word中当前打开的所有Document对象的集合。对于这个对象，我们要掌握的知识点仍是要理解这个对象的属性、方法。
1 Documents.Count 属性
这个属性返回一个 Long，该值表示集合中的文档数。此为只读属性。
语法：expression.Count
其中expression表示一个 Documents 对象.
2 Documents.Add 方法
这个方法返回一个 Document 对象，该对象表示添加一个新的空文档到打开的文档集合。
语法：expression.Add (Template, NewTemplate, DocumentType, Visible)
其中expression表示一个 Documents 对象.
参数：
1）Template 可选 Variant 要用于新文档的模板名。如果省略该参数，则使用Normal模板。
2）NewTemplate 可选 Variant True 将文档作为模板打开。默认值为 False 。
3）DocumentType 可选 Variant可以是下列的WdNewDocumentType 常量之一: wdNewBlankDocument、wdNewEmailMessage、wdNewFrameset或wdNewWebPage。默认常量是wdNewBlankDocument。
4）Visible 可选 Variant True 在可见窗口中打开该文档。如果此值为FALSE，Microsoft Word 将打开文档，但将文档窗口中的Visible属性设置为False。默认值为True。
3 Documents.Item 方法
这个方法返回Documents集合中的单个文档对象。
语法：expression.Item (Index)
其中expression表示一个 Documents 对象.
参数：index 必需 Long 或者 String 返回的对象的索引(Long)或对象的名称(字符串)。
4 Documents.Save 方法
保存文档集合中的所有文档。
语法：expression.Save (NoPrompt, OriginalFormat)
其中expression表示一个Documents对象.
参数：
1）NoPrompt 可选 Variant True表示要让Word自动保存的所有文档。False 表示Word 将提示用户保存自上次保存以来已更改的每个文档。
2）OriginalFormat 可选 Variant 指定文档的保存的方式。可以是
WdOriginalFormat 的常量参考：
wdOriginalDocumentFormat 1 原始文档格式
wdPromptUser 2 提示用户选择文档格式
wdWordDocument 0 Microsoft Word 文档格式
5 实例：新建文档并保存
我们来看下面的示例，这个实例中将新建一个WORD文档,然后提示给用户新建文档的名称，最后保存。我们看下面的代码：
Sub mynz()
Dim UU As String
Documents.Add
If Documents.Count >= 1 Then
MsgBox Documents.Item(1).Name
UU = Documents.Item(1).Name
End If
Documents.Item(UU).Save
End Sub
代码截图：
代码讲解：
1）Documents.Add 添加一个新的Word文档
2）If Documents.Count >= 1 Then 如果打开的文档集合数量大于1那么……
3) MsgBox Documents.Item(1).Name 提示用户第一个文档的名称
4）UU = Documents.Item(1).Name 将文档的名称存储在变量UU中
5）Documents.Item(UU).Save 保存名称为UU变量的文档
代码的执行效果，我们点击运行，看下面的代码运行节点：
今日内容回向：
1 文档集合的COUNT属性意义是什么？
2 文档集合的Add方法、Item方法、Save方法的意义是什么？
3 如何打开一个空白的文档并保存？
本讲内容参考程序文件：Doc 003文档.docm
分享成果，随喜正能量
我20多年的VBA实践经验，全部浓缩在下面的各个教程及应用工具中：
