Word VBA 简介(2) 文档的基础操作

Documents 集合对象表示所有打开的 Word 文档，可以从 Application.Documents 属性进行访问。

1.遍历所有文档

循环访问所有打开的文档，可以使用For Each循环和“Documents 集合对象。

Sub test()

Dim doc As Word.Document

For Each doc In Word.Application.Documents '遍历当下Word打开的文档，然后输出文档名 Debug.Print doc.Name Next doc

End Sub

2.新建文档

可以使用 Documents.Add 方法。

Sub test2()

    Dim D As Word.Document    Set D = Word.Application.Documents.Add

End Sub

3.保存文档

保存文档可以使用 SaveAs2 方法和 Save 方法。若要以特定文件格式保存文档，可以用 SaveAs2 方法提供的 WdSaveFormat 枚举中的文件格式参数。

枚举参数见下图：

‍

Sub Save_doc()

Dim D As Word.Document '新建一个文档 Set D = Word.Application.Documents.Add '将文档另存为test.docx,保存到桌面路径Desktop下。 '其中Environ$('USERPROFILE')，表示获取用户的系统环境变量 'Environ$('USERPROFILE')是用户配置文件的根目录 D.SaveAs2 Environ$('USERPROFILE') & '\Desktop\test.docx', wdFormatDocumentDefault '在新建文档内容的最后插入文本 D.Content.InsertAfter '您好！'

D.Save '保存这个文件 'wdDoNotSaveChanges 0 不保存待定的更改。 'wdPromptToSaveChanges -2 提示用户保存待定更改。 'wdSaveChanges -1 自动保存待定更改，而不提示用户。 '关闭文件且保存，其实可以去掉上一句代码D.Save， '在此是为了让大家理解，所以写的繁琐点 D.Close -1

End Sub

4.打开和关闭文档

打开文档使用 Documents.Open 方法，若要关闭文档，使用 Close 方法。

Sub open_doc()

    Dim D As Word.Document

    '打开指定路径的Word文件    Set D = Word.Application.Documents.Open(Environ$('USERPROFILE') & '\Desktop\Example.docx')        '在内容的最后插入字符串    D.Content.InsertAfter '什么？'        '保存    D.Save        '关闭    D.Close

End Sub