Share via


NewDocument Event

Occurs when a new document is created.

Private Subobject**_NewDocument(ByValDocAs Document)**

object An object of type Application declared with events in a class module. For more information about using events with the Application object, see Using Events with the Application Object .

Doc The new document.

Example

This example asks the user whether to save all other open documents when a new document is created. This code must be placed in a class module, and an instance of the class must be correctly initialized in order 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_NewDocument(ByVal Doc As Document)
    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 Documents
            With docLoop
                If .Name <> strName Then
                    .Save
                End If
            End With
        Next docLoop
    End If
End Sub

Applies to | Application Object