Cannot kill a WINWORD.EXE instanciation

[Patrick Penet]

Hello Gurus,

I have a workbook which includes a Word document.

When, by VBA, the user quits this workbook, once the
Word document is edited, and returns into my app,
an instance of WINWORD is remaining active in the
tasks manager.

And more, even if the user leaves the application, this
WINWORD.EXE remains active and raises a problem
at the closing of Windows.

Any ideas, APIs, tips or tricks well accepted.
Many thanks.

Patrick

 

[papou]

Salut Patrick

This may be a stupid idea, but anyway: you may have Outlook already running
Word (defined as mail editor in Outlook options)?

HTH
Cordially
Pascal (not to be considered as an Excel guru!)

 

[Halim]

hi,

You have to define your WORD object variable as a public variable

Public WordObj as Object

Sub Initial()
Set WordObj = createobject("word.application")
WordObj.visible = true
'do your stuff here...
End sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
WordObj.Quit
set WordObj = nothing
End Sub

 

[Patrick Penet]

you may have Outlook already running Word (defined as mail editor in Outlook options ?

No, this is not the case.
Merci, anyway.
;-)
Patrick

 

[Patrick Penet]

Thank you but I need further precisions.

The Word document is inbedded in a workbook
and programmatically I do not intent to act on it.

The user only opens the WB and modifies the
document if he needs and then closes the WB.

The WB is in another instance of Excel and saved
in the Before_Close sub.

Both the WB and the document have small pieces
of code mainly for design and behaviour.

So, at your idea, where should I put the code you
suggested ?

Thank you for answering.
Patrick

 

[Halim]

Place this code below in a standard module:
code below will open word better if you run 'Initial' once at first.
Public WordObj as Object
Sub Initial()
Set WordObj = createobject("word.application")
WordObj.visible = true
'do your stuff here...
End sub

Then place code below in ThisWorkbook module:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
WordObj.Quit
set WordObj = nothing
End Sub

 

[Patrick Penet]

Sorry Halim it does not work.
Actually this code is opening a new instance of Word
but not the one wich is embedded in XL.

The problem is : if the user needs to modify the
text of the embedded Word, he first select the
Word object (right click) and then double click
on it.

This will open an instance of Word "inside" Excel.

This is this instance that would not terminate when
closing the workbook.

Thanks anyhow.

Patrick

 

[papou]

Salut Patrick
Have a look at this and see if it helps:
http://www.vbfrance.com/codes/LISTER-PROCESSUS-ACTIFS-AVEC-API_4422.aspx

HTH
Cordially
Pascal

 

[Patrick Penet]

Merci Papou, ça marche !
@ +
Patrick

Salut Patrick
Have a look at this and see if it helps:
http://www.vbfrance.com/codes/LISTER-PROCESSUS-ACTIFS-AVEC-API_4422.aspx

HTH
Cordially
Pascal

 

[Joe Law]

Here is a windows service that will kill all run away WINWORD.EXE after
a configurable amount of time.

http://www.spikesolutions.net/ViewSolution.aspx?ID=d288b399-24e0-4942-8a
c4-2f78eda45469

*** Sent via Developersdex http://www.developersdex.com ***