Word VBA - событие DocumentBeforeSave?

Я использую следующий код VBA для отображения окна сообщения при сохранении документа Word,

Public WithEvents appWord as Word.Application 

Private Sub appWord_DocumentBeforeSave _ 
 (ByVal Doc As Document, _ 
 SaveAsUI As Boolean, _ 
 Cancel As Boolean) 

 Dim intResponse As Integer 

 intResponse = MsgBox("Do you really want to " _ 
 & "save the document?", _ 
 vbYesNo) 

 If intResponse = vbNo Then Cancel = True 
End Sub

Этот код был написан в классе. Но это не работает. Ничего не происходит при сохранении. В чем здесь проблема?

Ответы на вопрос(3)

Ваш ответ на вопрос