《VBA之Word应用》（版权©️10178982），是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。
这套教程是专门针对WORD VBA 的教程，是VBA中的稀缺资源，我给这套教程分归为中级教程，希望大家在VBA入门后再学习这套教程，这样会更加深入的理解面向对象编程的意义。
本套教程共三册十六章，今日内容为：VBA之Word应用第三章第十一节：Document对象的事件
【分享成果，随喜正能量】196人生，一站有一站的风景，一岁有一岁的味道，你的年龄应该成为你生命的勋章而不是你伤感的理由。生活嘛，慢慢来，你又不差！。
第三章 文档集合Documents对象及文档Document对象大家好，我们继续Word VBA的讲解。这讲开始，我们进入非常重要一章的学习，文档集合Documents对象及文档Document对象。在前面的讲解中我们可以大概看出文档和文档集合在Word VBA中的作用，很多的对象都是文档对象属性的返回对象，我们通过这章的学习要掌握Word VBA的基本应用。
第十一节 Document对象的事件大家好，这节我们讲解Document对象的事件。事件是对象的响应，在讲《VBA之EXCEL应用》的时候，大家一定记得工作簿的若干个事件，这些事件是写在了Thisworkbook模块中，在工作簿打开或者关闭时等等相关动作时发生。在Word中也是如此。事件是写在了文档的模板ThisDocument模板中。这节开始我将就Close事件和Open事件给大家以详细的讲解和介绍。
1 Document.Close事件该事件在关闭文档时发生。
语法：
Private Sub Document_Close()
’需要做的事情
End Sub
2 Document.Open 事件该事件在打开文档时发生。
语法：
Private Sub Document_Open()
’需要做的事情
End Sub
3 Document事件的实例下面将给大家展示一个实例，在这个实例中，我们在打开文件时，将弹出一个对话框，告诉给用户这个文档是第八套教程的一个实例，当我们关闭的时候，会自动保存。我们看下面的代码：
Private Sub Document_Close()
ActiveDocument.Save
End Sub
Private Sub Document_Open()
MsgBox "您将打开一个文档，这个文档是第八套教程《VBA之Word应用》的一个实例！"
End Sub
代码截图：
代码解读：
1）Private Sub Document_Close()
ActiveDocument.Save
End Sub
以上代码在文档关闭时发生，在关闭的时候将执行ActiveDocument.Save，这句代码的意义是保存当前文档。
2）Private Sub Document_Open()
MsgBox "您将打开一个文档，这个文档是第八套教程《VBA之Word应用》的一个实例！"
End Sub
以上代码在文档打开时发生，在打开的时候将执行 MsgBox "您将打开一个文档，这个文档是第八套教程《VBA之Word应用》的一个实例！"，这句代码的意义是弹出一个对话框，这个对话框的内容是“您将打开一个文档，这个文档是第八套教程《VBA之Word应用》的一个实例！"
下面我们看代码的执行情况：
1）打开文件：
2：打开后我们输入些字符，然后关闭
我们关闭这个文件后，再次打开（截图略），发现文档已经被保存了。
今日内容回向：
1 文档对象的Close事件的意义是什么？
2 文档对象的Open事件的意义是什么？
本讲内容参考程序文件：Doc 003文档.docm
我20多年的VBA实践经验，全部浓缩在下面的各个教程及应用工具中：
