《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实践经验,全部浓缩在下面的各个教程及应用工具中: