You could set up a Application Event Monitor as a class in your Normal Template.
Add a new class module. Call it csAppMonitor and paste in the following code:
:
Code:
Option Explicit
Public WithEvents oAddInMontiorApp As Word.Application
Private Sub Class_Initialize()
Set oAddInMontiorApp = Word.Application
End Sub
Private Sub oAddInMontiorApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "Beep"
End Sub
In a standard module of your Normal.dtom, Declare:
Public oMonitor As clsAppMonitor
Then in the AutoExec sub
Set oMonitor = New clsAppMonitor