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