Occurs when a new document is created, when an existing document is opened, or when another document is made the active document.
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 .
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