Option Explicit
Public WithEvents appWD As Application
Private Sub Class_Initialize()
Set appWD = Word.Application
End Sub
Private Sub appWD_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
If MsgBox("Do you want to save?", vbYesNo, "Save?") = vbYes Then Exit Sub
SaveAsUI = False
Cancel = True
End Sub