MS Word Application Event Not working

[DMUM]

HI, PLEASE PLEASE anyone, I really need help with this!

I created some code using this example:

http://word.mvps.org/faqs/macrosvba/AppClassEvents.htm

Instead of using the Quit event they use, I am using the DocumentBeforeSave Event.

However it is not working. Just in case it will help here is my code:

In Module

option Explixit

Dim oAppClass As New ThisApplication

Public Sub AutoExec()
Set oAppClass.oApp = Word.Application
End Sub

------------------------------------------------------------------------------
-
In a class module called ThisApplication:

Option Explicit

Public Sub oApp_DocumentBeforeSave(ByVal Doc As Document, SaveAs UI As
Boolean, Cancel As Boolean)

Call EditingMacroComments

Sub EditingMacroComments()

End Sub
-----------------------------END CODE-----------------------