VBA do Word - evento DocumentBeforeSave?

Question

Jun 25, 2015, 05:44 PM

savefiledialog word-vba ms-word vba before-save

VBA do Word - evento DocumentBeforeSave?

Estou usando o seguinte código VBA para fazer com que uma caixa de mensagem apareça ao salvar o documento do 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

Este código foi escrito em uma classe. Mas isso não funciona. Nada acontece ao salvar. Qual é o problema aqui?