DocumentOpen Event
Occurs when a document is opened.
Private Subobject**_DocumentOpen(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 document that's being opened.
Example
This example asks the user whether to save all other open documents when a document is opened. 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_DocumentOpen(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
See Also | DocumentBeforeClose Event | DocumentBeforePrint Event | DocumentBeforeSave Event | DocumentChange Event | NewDocument Property