VBA之Word应用第三章第二节:从指定的目录中打开Word文档

《VBA之Word应用》（版权10178982），是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。

这套教程是专门针对WORD VBA 的教程，是VBA中的稀缺资源，我给这套教程分归为中级教程，希望大家在VBA入门后再学习这套教程，这样会更加深入的理解面向对象编程的意义。

本套教程共三册十六章，今日内容为：VBA之Word应用第三章第二节:从指定的目录中打开Word文档

【分享成果，随喜正能量】 一个人内心没有涵养，就会变成色厉内荏，表面满不在乎，而内心非常空虚。其实，大可不必。一个人好就是好，穷就是穷，痛苦就是痛苦。。

第三章 文档集合Documents对象及文档Document对象

大家好，我们继续Word VBA的讲解。这讲开始，我们进入非常重要一章的学习，文档集合Documents对象及文档Document对象。在前面的讲解中我们可以大概看出文档和文档集合在Word VBA中的作用，很多的对象都是文档对象属性的返回对象，我们通过这章的学习要掌握Word VBA的基本应用。

第二节 文档集合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

分享成果，随喜正能量

我20多年的VBA实践经验，全部浓缩在下面的各个教程及应用工具中：

原文地址：https://blog.csdn.net/VBA6337/article/details/142744597

免责声明：本站文章内容转载自网络资源，如本站内容侵犯了原著者的合法权益，可联系本站删除。更多内容请关注自学内容网（zxcms.com）！