Option Compare Database
Option Explicit

Dim WithEvents Doc As Word.Document
Dim WithEvents wrd As Word.Application

Public Sub opendoc()
    Set wrd = New Word.Application
    wrd.Visible = True
    Set Doc = wrd.Documents.Open("c:\1.doc")
End Sub

Private Sub doc_Close()
    MsgBox "@cool@"
End Sub

Private Sub doc_New()

End Sub

Private Sub wrd_DocumentBeforeClose(ByVal Doc As Word.Document, Cancel As Boolean)
    MsgBox Doc.name
End Sub

Private Sub wrd_DocumentBeforeSave(ByVal Doc As Word.Document, SaveAsUI As Boolean, Cancel As Boolean)

End Sub

Private Sub wrd_DocumentChange()

End Sub

Private Sub wrd_Quit()

End Sub