Share via


DocumentChange Event

Occurs when a new document is created, when an existing document is opened, or when another document is made the active document.

Private Subobject**_DocumentChange()**

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

Example

This example asks the user whether to save all the other open documents when the document focus changes. 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_DocumentChange()
    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

See Also | Close Method | DocumentBeforeClose Event | DocumentBeforePrint Event | DocumentBeforeSave Event | DocumentOpen Event | New Event | NewDocument Property | Open Event | Quit Method