App_DocumentBeforeClose vba word

Question

Je souhaite créer App_DocumentBeforeClose.

J'utilisé avec ce code:

En ThisDocument:

Private Sub Document_Open() 
start 
End Sub 

Dans Modul

Sub start() 
Dim X As New EventClassModule 
Set X.App = Word.Application 
End Sub 

En classe Mudel:

Public WithEvents App As Word.Application 

Private Sub App_DocumentBeforeClose(ByVal Doc As Document, Cancel As 
Boolean) 
MsgBox "App_DocumentBeforeClose" 
End Sub 

Quand je ferme document, il est pas montre moi le MsgBox , Pourquoi?

Merci,

Tal

Answer 1

votre sous fonctionne correctement mais X est instancié comme variable scope procédure de sorte qu'une fois start() extrémités, X est hors de portée et ne sont pas disponibles à tout événement DocumentBeforeClose() ultérieure déclenchement

vous devez déclarer X comme une variable Public

Public X As New EventClassModule '<--| this way 'X' is "seen" throughout the entire life of the document 


Sub start() 
' Dim X As New EventClassModule '<--| this way 'X' would be "seen" only at the moment 'start()' is running 
    Set X.App = Word.Application 
End Sub