VBA之Word应用第三章第一节:文档集合Documents 对象

《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实践经验，全部浓缩在下面的各个教程及应用工具中：