Как отловить события закрытия/открытия WORD файла?

Option Explicit

Dim WithEvents a As Word.Application

Private Sub a_DocumentChange()
  Debug.Print 'a_DocumentChange'
End Sub

Private Sub a_Quit()
  Debug.Print 'a_Quit'
End Sub

Private Sub Form_Load()
  Set a = CreateObject('Word.Application')
  a.Documents.Add
  a.Visible = True
End Sub

' Вывод:
a_DocumentChange
a_Quit

  ' только без пробелов слово c o d e
  ' то получится вот что

For Each WordDoc In WordApp.Documents
  If WordDoc.Name = mvarFileName Then
    сделать что-то 
  Exit For
End If

  Dim tmpDoc as Word.Document
  For Each tmpDoc In WordApp.Documents
    If tmpDoc.Name = mvarFileName Then
      Set WordDoc = tmpDoc ' если нужно установить эту переменную
      ' сделать что-то 
      Exit For
    End If
  Next tmpDoc

  Set WordDoc = WordApp.Documents(mvarFileName)

Private Sub Form_Unload(Cancel As Integer)
  Set WordDoc = Nothing
  WordApp.Quit
End Sub