Application.DocumentBeforeSave Event (Word)
Occurs before any open document is saved.
Syntax
Private Sub expression _DocumentBeforeSave(ByVal DocAs Document, SaveAsUIAs Boolean, CancelAs Boolean)
expression A variable that represents an Application object declared with events in a class module.
Parameters
Name |
Required/Optional |
Data Type |
Description |
|---|---|---|---|
Doc |
Required |
Document |
The document that is being saved. |
SaveAsUI |
Required |
Boolean |
True to display the Save As dialog box. |
Cancel |
Required |
Boolean |
False when the event occurs. If the event procedure sets this argument to True, the document is not saved when the procedure is finished. |
Remarks
For more information about using events with the Application object, see Using Events with the Application Object.
Example
This example prompts the user for a yes or no response before saving any document. This code must be placed in a class module, and an instance of the class must be correctly initialized to see this example work; see Using Events with the Application Object for directions on how to accomplish this.
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