通过

Application.DocumentBeforeSave 事件 (Word)

  • 项目

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

语法

表达式。DocumentBeforeSave (DocAs Document**、 SaveAsUIAs Boolean、 CancelAs Boolean)

表达 一个变量，表示使用类模块中的事件声明的“Application”对象。

参数

名称 必需/可选 数据类型 说明
Doc 必需 Document 即将被保存的文档。
SaveAsUI 必需 Boolean True 则显示 另存为对话框中，如果是否要保存新文档，以响应 保存命令;或在 另存为命令;或者在 SaveAs或 SaveAs2方法的响应。
Cancel 必需 Boolean 假 的事件发生时。 如果该事件过程将此参数设置为 True ，则过程完成时不保存文档。

备注

有关对 Application 对象使用事件的详细信息，请参阅 对 Application 对象使用事件。

示例

本示例在保存任何文档之前提示用户输入“是”或“否”响应。 此代码必须放置在类模块中，并且必须正确初始化 类的实例才能看到此示例的工作原理;有关如何完成此操作的说明 ，请参阅将事件与 Application 对象配合使用 。

Public WithEvents appWord as Word.Application 
 
Private Sub appWord_DocumentBeforeSave _ 
 (ByVal Doc As Document, _ 
 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

另请参阅

Application 对象

自动保存

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。