【分享成果，随喜正能量】心存希望，幸福就会眷顾你；心存梦想，机遇就会笼罩你；心存坚持，快乐就会常伴你；心存真诚，平安就会跟随你；心存善念，阳光就会照耀你；心存美丽，温暖就会围绕你；心存大爱，崇高就会追随你；心存感恩，贵人就会青睐你；心存他人，真情就会回报你。

《VBA之Word应用》，是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容是第三章“文档集合Documents对象及文档Document对象”第2节：文档集合Documents 对象（二）。

第二节 文档集合Documents 对象（二）

大家好，我们继续文档集合对象的讲解，在上一节中，我们讲了文档集合对象的Count属性和Add方法，Item方法，及Save方法。这节中我们继续讲解Documents 对象的其他方法。

1 Documents.Open 方法

这个方法会打开指定的文档并将其添加到 Documents 集合。返回一个 Document 对象。

语法：

expression.Open(FileName,ConfirmConversions,ReadOnly,AddToRecentFiles, PasswordDocument,PasswordTemplate,Revert,WritePasswordDocument,WritePasswordTemplate,Format,Encoding,Visible,OpenConflictDocument,OpenAndRepair, DocumentDirection,NoEncodingDialog)

其中expression为一个文档对象集合对象.

参数：

1）FileName 必需 Variant 文档名（可包含路径）

2）ConfirmConversions 可选 Variant 如果文件不是 Microsoft Word 格式，则为 True 以显示"转换文件"对话框

3）ReadOnly 可选 Variant 为 True，则以只读方式打开文档。

4）AddToRecentFiles 可选 Variant 如果为true将文件名添加到最近使用的文件列表菜单的底部。

5) PasswordDocument 可选 Variant 打开文档时所需的密码。

6) PasswordTemplate 可选 Variant 打开模板时所需的密码

7) Revert 可选 Variant 控制如果FileName 是打开文档的名称会进行什么操作。 为 True，则放弃对打开文档的任何未保存更改并重新打开文件。为False则激活打开的文档。

8) WritePasswordDocument 可选 Variant用于保存文档更改的密码

9) WritePasswordTemplate 可选 Variant 用于保存模板更改的密码。

10) Format 可选 Variant 用于打开文档的文件转换器。可为以下WdOpenFormat常量之一。默认值为wdOpenFormatAuto。若要指定外部文件格式，请将OpenFormat属性应用于 FileConverter对象，以确定要与此参数一起使用的值。

11) Encoding 可选 Variant 当你查看保存的文档时 Microsoft Word 所使用的文档编码（代码页或字符集）。可以是任何有效的 MsoEncoding 常量。默认值是系统代码页。

12) Visible 可选 Variant 如果在可见窗口中打开文档使用TTRUE。默认值为True。13) OpenConflictDocument 可选 Variant 指定是否打开具有脱机冲突的文档的冲突文件。

14) OpenAndRepair 可选 Variant 如果该属性为 True ，则修复文档，以防止文档毁坏。

15) DocumentDirection 可选 WdDocumentDirection类型，表示文档中的横排文字。默认值为 wdLeftToRight。

16）NoEncodingDialog 可选Variant 如果为True，当无法识别文本编码，则跳过显示 Word 所显示的“编码”对话框。 默认值为 False。

2 Documents.Close 方法

关闭指定的文档。

语法：expression.Close (SaveChanges, OriginalFormat, RouteDocument

其中expression为一个文档对象集合对象.

参数：

1）SaveChanges 可选 Variant 指定保存文档的操作。可以是下列的 WdSaveOptions常量之一: wdDoNotSaveChanges、wdPromptToSaveChanges或 wdSaveChanges

2）OriginalFormat 可选 Variant 指定保存文档的格式。可以是下列的 WdOriginalFormat常量之一:wdOriginalDocumentFormat、wdPromptUser或 wdWordDocument 。

3）RouteDocument 可选 Variant True 将文档传送给下一个收件人。如果文档没有附加的传送名单，则忽略此参数。

3 实例：从指定的目录中打开Word文档

下面我们利用OPEN方法来打开一个指定目录下的文档，我们看下面的代码：

Sub mynzA()

Dim myFile As String

myFile = ThisDocument.Path & "\" & "示例03.docx"

If Dir(myFile) <> "" Then

Documents.Open myFile

Else

MsgBox myFile & "不存在！"

End If

End Sub

代码截图：

代码的解读：

1） Dim myFile As String 定义一个字符串，作为文件名变量

2） myFile = ThisDocument.Path & "\" & "示例03.docx" 指定这个变量，包括文件的路径.

3） If Dir(myFile) <> "" Then 首先判断这个文件是否存在

4） Documents.Open myFile 如果这个文件存在，利用OPEN方法打开这个文件。

5） MsgBox myFile & "不存在！" 如果文件不存在则弹出一个对话框将提示反馈给用户

代码的执行效果（略）

今日内容回向：

1 文档集合的OPEN意义是什么？

2 文档集合的CLOSE的意义是什么？

3 如何从指定的目录中打开一个文档？

本讲内容参考程序文件：Doc 003文档.docm

• 我根据自己多年VBA实际利用经验，推出了八部VBA专门教程。第1套教程：VBA代码解决方案 ；第2套教程：VBA数据库解决方案；第3套教程：VBA数组与字典解决方案；第4套教程：VBA代码解决方案之视频（第一套的视频讲解）；第5套教程：VBA中类的解读和利用；第6套教程：VBA信息获取与处理；第7套教程：VBA之EXCEL应用；第8套教程：VBA之Word应用（最新）。上述教程的学习顺序：

① 7→1→3→2→6→5或者7→4→3→2→6→5 ② 7→8

• 第一套：VBA代码解决方案 是VBA中各个知识点的讲解，教程共147讲，覆盖绝大多数的VBA知识点，提供的程序文件更是一座不可多得的代码宝库，是初学及中级人员必备教程；目前这套教程提供的版本是修订第二版，程序文件通过32位和64位两种OFFICE系统测试。
• 第二套：VBA数据库解决方案 数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，适合中级人员的学习。目前这套教程提供的是修订第一版教程，程序文件通过32位和64位两种OFFICE系统测试。
• 第三套：VBA数组与字典解决方案 数组和字典是VBA的精华，字典是VBA代码水平提高的有效手段，值得深入的学习，是初级及中级人员代码精进的手段。目前这套教程提供的版本是修订第一版，程序文件通过32位和64位两种OFFICE系统测试。
• 第四套：VBA代码解决方案之视频 是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。这套教程是第一套教程（修订一版）的视频讲解，视频更易接受。
• 第五套：VBA中类的解读和利用 这是一部高级教程，讲解类的虚无与肉身的度化，类的利用虽然较少，但仔细的学习可以促进自己VBA理论的提高。这套教程的领会主要是读者的领悟了，领悟一种佛学的哲理。目前这套教程提供的版本是修订第一版，程序文件通过32位和64位两种OFFICE系统测试。
• 第六套教程：VBA信息获取与处理，这是一部高级教程，涉及范围更广，实用性更强，面向中高级人员。教程共二十个专题，包括：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪切板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。
• 第七套教程：VBA之EXCEL应用 这是一部初级教程这部教程共三册，从从创建宏、对话框、工作簿和工作表对象、单元格对象等基础内容讲起，到循环结构、错误处理、字符串操作、日期和时间、事件、数组应用，函数过程等方面，一直讲解到控件和窗体对象的应用都是我们提高自己EXCEL水平的必须。
• 第八套教程：VBA之WORD应用 是围绕“面向对象编程”展开的讲解，让大家充分认识Word中VBA的对象，以及对象的属性、方法及利用。教程共分三册，十六章，其中前十五章是各种对象属性、方法的讲解，每节都有专门的实例说明这些属性方法的具体应用，最后一章是结和具体应用场景的讲解，详细讲解了二十八个实际工作中有代表性的实例，紧扣word数据的批量处理，发挥VBA的长处。本套教程实例众多，大家可以拿来即用，或者修正后加以利用。由于这套教程是围绕“面向对象编程”来展开，建议大家先学《VBA之Excel应用》，对VBA中的对象、属性、方法、事件有一定认识后再来学习这套教程。