VBA events

Hej Jeg er ved at lave noget VBA til Word 2007/2010. Jeg ønsker at kører noget kode hvergang der bl.a. åbnes et dokument. Jeg har oprettet en template som er placeret i Words startup folder.

Jeg har lavet et Class module som skal indeholde koden.
Her er koden fra class modulet:
Option Explicit

Public WithEvents App As Word.Application

Private Sub App_DocumentOpen(ByVal Doc As Document)
    MsgBox "App_DocumentOpen"
End Sub

Private Sub App_NewDocument(ByVal Doc As Document)
    MsgBox "App_NewDocument"
End Sub

I et andet modul initieres event handles:

Dim wdApp As New AppEvents
Sub AutoExec()
    MsgBox "Auto exec"
    If wdApp Is Nothing Then
        Set wdApp.App = New AppEvents
        Set wdApp.App = Word.Application
    End If
End Sub

Sub AutoExit()
    MsgBox "Auto exit"
    Set wdApp = Nothing
End Sub

Det er taget fra MSDN:http://msdn.microsoft.com/en-us/library/bb221264(office.12).aspx

Men det virker ikke :-( Hvad gør jeg forkert?

FJA