vba编程课件（涉及word和excel）.ppt

1）ActiveDocument 属性 activeDocument是一个只读属性它返回一个Document 对象 ，该对象代表活动文档。如： With ActiveDocument If .Saved = False Then .Save .Close End If End With 2）commandbars 属性 用comandbars 属性可以返回一个CommandBars集合， 该集合代表 Word 的菜单栏及所有工具栏。 下面的示例在应用程序窗口的底部显示“绘图”工具栏： With CommandBars(Drawing) .Visible = True .Position = msoBarBottom End With 3）tasks 属性 返回一个Tasks 对象集合它代表了所有正在运行的应 用程序。下面的示例功能是如果计算器还没有运行则 Word 启动并显示计算器： If Not Tasks.Exists(计算器) Then Shell calc.exe Tasks(计算器).WindowState = wdWindowStateNormal End If 该代码中的shell命令可以用来启动命令行程序。 4）Quit 方法 Quit 方法的作用是退出 Word 并可选择保存打开的文档。 语法： object.Quit(SaveChanges） 其中SaveChanges参数可以是wdDotNotSaveChanges ， wdPromptToSaveChanges 或wdSaveChanges 。 5）DocumentBeforeClose 事件 该事件在打开的文档关闭之前发生，发生时具有cancel 参数，可以决定是否真的关闭。 在使用该事件之前，必须了解在WORD VBA中对application 对象声明事件过程是一件复杂的事情，它分为两个步骤： 第一步：选择project节点，并点击右键插入类模块， 在类模块中写入如下代码： Public WithEvents appWord As Word.Application Private Sub appWord_DocumentBeforeClose (ByVal Doc As Document, Cancel As Boolean) ret = MsgBox(你确定要关闭么?, vbYesNo) If ret = vbNo Then Cancel = True End Sub 上述代码中的appWord为具有事件的word application对象，当然 不是一定要叫appword 第二步：在document（文档）的open事件中，加入代码， 在文档打开的时候将appword对象与word的application对象 绑定，代码如下： Dim X As New 类1 Private Sub Document_Open() Set X.appWord = Word.Application End Sub 这里假设appword类所在的类模块文件名为“类1”。X为 该类模块的对象名，可以任意。 6）DocumentBeforePrint 事件 该事件在打开的文档打印之前发生，该事件也具有参数 Cancel， 如果为 False 则过程完成后将不打印文档。 比如我们可以利用在normal.doc模板中的该事件，使所有 使用normal模板的word文档打印命令无效。 二、documents 对象和document 对象集合 document 对象代表的是一篇完整的Word 文档它包括了文档 中所有的对象，如段落、文本、字句、表格、格式等。这些对 象之间也是有鲜明的层次的。而documents 对象集合则是所有 当前打开的document对象的集合。 可以通过使用 Documents 对象集合以及名称或索引序号来 得到文档对象。其语法为Documents(index) ，其中index 既可 以是文档的名称如”mydoc.doc” ,也可以是文档的索引序号。 如下列代码激活Documents 集合中的第一篇文档： Documents(1).Activate 下面我们来具体了解一下它们的方法 1） Add 方法 使用 Documents 对象集合的Add 方法可以新建一篇空白 文档并将返回