DocumentBeforeSave 事件

       

该事件在打开的文档保存之前发生。

Private Sub object_DocumentBeforeSave(ByVal Doc As Document, ByVal SaveAsUI As Boolean, Cancel As Boolean)

object   在类模块的事件中声明的 Application 类型对象。有关使用 Application 对象的详细内容,请参阅使用 Application 对象事件

Doc   将保存的文档。

SaveAsUI   如果为 True,将显示“另存为” 对话框。

Cancel   如果为 False,则事件发生。如果事件过程将该参数设为 True,则过程完成后不会保存文档。

示例

本示例在保存文档以前,提示用户用“是”或“否”进行响应。为了看到本例的执行结果,本例提供的代码必须保存在一个类模块中,而且该类中的实例必须正确初始化;有关完成上述任务的指导,请参阅使用 Application 对象事件

Public WithEvents appWord as Word.Application

Private Sub appWord_DocumentBeforeSave _
        (ByVal Doc As Document, _
        ByVal SaveAsUI As Boolean, _
        Cancel As Boolean)

    Dim intResponse As Integer

    intResponse = MsgBox("Do you really want to " _
        & "save the document?", _
        vbYesNo)

    If intResponse = vbNo Then Cancel = True
End Sub