Public App1 As New EventsOfApp
Public Sub OnEvents()
	'Определение объекта Word.Application with Events
	 'Связывание
	 Set App1.AppEv = Word.Application
	'Теперь начинают работать обработчики событий у Word.Application
End Sub
Public Sub DocQuit()
	With ActiveDocument
		If ExistVar("CounterDoc") Then
			MsgBox "Число открытий документа " & .Name & vbCrLf & _
			.Variables("CounterDoc"), VBE xclamation, "Число открытий документа!"
		Else
			MsgBox "У документа " & .Name _
			& " нет счетчика числа открытий", VBE xclamation, "Число открытий документа!"
		End If
	End With
End Sub