MS Word Events[Resolved]

[adhavanv]

Hi,
I have a VB application that creates a Word(set win =new word.application) object and add document to it. Finally after add all the documents to the master document it saves the master file and makes the document visible to the user.After reviewing the created document when the user closes the document i want to do some operations.
for this is delcared varialbe win withEvents
Dim WithEvents win as Word.Applicaition

And in the procedure private sub win_quit() i coded the operations that i want to perform.

But when the user closes word the control never comes to win_quit() and the operation in the procedure is never executed. Please let me know what should i do.

Thanks
Adhi

[RobDog888]

You catching the application closing event and not the document closing event.

[adhavanv]

Even if i catch the document close event ..still its never executed.

adhi

[RobDog888]

Are you setting your doc event object in the app open event? You need both so when the app is opened it can set the doc event of the doc thats opening. They need to be linked together or it doesnt know which instance to link.

[adhavanv]

No how to do that????

[adhavanv]

Rob,
Can you explain how to do, what you have mentioned in your last reply.

adhi

[adhavanv]

Could somebody please help me with this.

[adhavanv]

Rob
Do you mean to say that i have to register the class in the ThisDocument to connect the class and its events to word application??

adhi

[RobDog888]

Here is a small and quick example I wrote for you to show how to link the app events and the document events.

Option Explicit
'Add a reference to MS Word xx.0 Object Library
'Add 3 command buttons to your form
Private moApp As Word.Application
Private moDoc As Word.Document
 
Private WithEvents myAppEvt As Word.Application
Private WithEvents myDocEvt As Word.Document
 
Private Sub Command1_Click()
    'Add a new document and initialize/link the document event
    moApp.Visible = True
    Set moDoc = moApp.Documents.Add
    Set myDocEvt = moDoc
End Sub
 
Private Sub Command2_Click()
    'Close the document
    moDoc.Close False
End Sub
 
Private Sub Command3_Click()
    'Quit the word application
    moApp.Quit False
End Sub
 
Private Sub Form_Load()
    'Create the application and initialize application event
    Set moApp = New Word.Application
    Set myAppEvt = Word.Application
End Sub
 
Private Sub myAppEvt_Quit()
    'Detect the word quit event
    MsgBox "Quit"
End Sub
 
Private Sub myDocEvt_Close()
    'detect the document close event
    MsgBox "Close"
End Sub

[adhavanv]

That was perfect.

[RobDog888]

Thanks! Sorry for the delay in posting the code example. Things have been quite hecktic lately for me.

[adhavanv]

Not a problem