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

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

document存储的内容(文档集合Documents对象二)(1)

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

代码截图:

document存储的内容(文档集合Documents对象二)(2)

代码的解读:

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 如何从指定的目录中打开一个文档?

document存储的内容(文档集合Documents对象二)(3)

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

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

,