Closing Running Processes

[Guest]

I have an Access application that need to close any non-visible instances of
Word running in the background. This is to tidy up any Word objects that have
been left behind. Any visible instances of Word must be left open. In
essence, the VBA equivalent of 'End Process' on Winword instances in Windows
Task Manager.

I can close all instances using GetObject to grab Word then quit but this
also quits visible instances. My coding for this is:

On Error GoTo Word_Is_Closed
Word_Close:
Set oWord = GetObject(, "Word.Application")
oWord.Activate
oWord.Quit
Set oWord = Nothing
GoTo Word_Close
Word_Is_Closed:

Anyone any ideas?

Thanks.

BW

 

[Stefan Hoffmann]

hi,

I can close all instances using GetObject to grab Word then quit but this
also quits visible instances. My coding for this is:

On Error GoTo Word_Is_Closed
Word_Close:
Set oWord = GetObject(, "Word.Application")
oWord.Activate
oWord.Quit
Set oWord = Nothing
GoTo Word_Close
Word_Is_Closed:

Anyone any ideas?

If Not oWord.Visible Then oWord.Quit?


mfG
--> stefan <--

 

[Guest]

Thanks Stefan

Your coding was my original solution but it doesn't work as, if Word is
visible, the same instance of Word is grabbed next time around - an endless
loop.

I can't see how to progress from one Word instance to another.

BW

 

[Douglas J. Steele]

I haven't actually tested to see what the Caption is for multiple instances
of Word, but you might be able to do something using
http://www.mvps.org/access/api/api0025.htm and
http://www.mvps.org/access/api/api0013.htm at "The Access Web".

On the other hand, why are there non-visible instances of Word open? Is it
because you opened them and didn't close them?