New Event
Occurs when a new document based on the template is created. A procedure for the New event will run only if it is stored in a template.
Private Sub Document_New()
Remarks
For information about using events with the Document object, see Using Events with the Document Object .
Example
This example asks the user whether to save all other open documents when a new document based on the template is created. (This procedure is stored in the ThisDocument class module of a template, not a document.)
Private Sub Document_New()
Dim intResponse As Integer
Dim strName As String
Dim docLoop As Document
intResponse = MsgBox("Save all other documents?", vbYesNo)
If intResponse = vbYes Then
strName = ActiveDocument.Name
For Each docLoop In Application.Documents
With docLoop
If .Name <> strName Then
.Save
End If
End With
Next docLoop
End If
End Sub
Applies to | Document Object
See Also | Close Method | DocumentChange Event | Open Event | Quit Method