L.S.,

Within Excel I am running a script that opens a new Word-document.
I like to stop the script temporarily untill the Word-session is
closed.

Example:

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.documents.Add

Msgbox ("Excel again")

The message should appear after closing the Word-session.

Possible?
With kind regards,
Hugo


--
H.A. de Wilde
------------------------------------------------------------------------
H.A. de Wilde's Profile: http://www.excelforum.com/member.php...o&userid=30679
View this thread: http://www.excelforum.com/showthread...hreadid=538800

Once word is opened and the document is added, the script moves on.

You could possibly have it loop and check for the existence of Word.

--
Regards,
Tom Ogilvy


"H.A. de Wilde" wrote:


L.S.,

Within Excel I am running a script that opens a new Word-document.
I like to stop the script temporarily untill the Word-session is
closed.

Example:

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.documents.Add

Msgbox ("Excel again")

The message should appear after closing the Word-session.

Possible?
With kind regards,
Hugo


--
H.A. de Wilde
------------------------------------------------------------------------
H.A. de Wilde's Profile: http://www.excelforum.com/member.php...o&userid=30679
View this thread: http://www.excelforum.com/showthread...hreadid=538800

Dear Tom,

thank you for your reply.
Unfortunately I am not able to check for the existence of Word.
Which condition should I use to exit the loop?

With kind regards,
Hugo


--
H.A. de Wilde
------------------------------------------------------------------------
H.A. de Wilde's Profile: http://www.excelforum.com/member.php...o&userid=30679
View this thread: http://www.excelforum.com/showthread...hreadid=538800

Without testing

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.documents.Add
Set objDoc = Nothing
do while objWord.Visible
loop
set objWord = Nothing
Msgbox ("Excel again")

--
Regards,
Tom Ogilvy


"H.A. de Wilde" wrote:


Dear Tom,

thank you for your reply.
Unfortunately I am not able to check for the existence of Word.
Which condition should I use to exit the loop?

With kind regards,
Hugo


--
H.A. de Wilde
------------------------------------------------------------------------
H.A. de Wilde's Profile: http://www.excelforum.com/member.php...o&userid=30679
View this thread: http://www.excelforum.com/showthread...hreadid=538800

Or, instead of using loops, why not use an event-based solution? Put the
below code in an Excel code module, call Initialize() and Terminate() as
appropriate, and you'll be able to listen to Application Quit and Document
Close events through the event handlers. I would strongly recommend the use
of event-based programming whereever and whenever possible, instead of
implementing tight loops to poll for state information, since the latter will
consume CPU cycles for virtually no good reason.

Cheers,
/MP

====================================

Option Explicit

Private WithEvents g_oApp As Word.Application
Private WithEvents g_oDoc As Word.Document

Private Sub Initialize()
Set g_oApp = CreateObject("Word.Application")
Set g_oDoc = g_oApp.Documents.Add

g_oApp.Visible = True
End Sub

Private Sub Terminate()
Set g_oDoc = Nothing
Set g_oApp = Nothing
End Sub

Private Sub g_oApp_Quit()
MsgBox "Word App Quit"
End Sub

Private Sub g_oDoc_Close()
MsgBox "Word Doc Close"
End Sub

==============================================


"Tom Ogilvy" wrote:

Without testing

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.documents.Add
Set objDoc = Nothing
do while objWord.Visible
loop
set objWord = Nothing
Msgbox ("Excel again")

--
Regards,
Tom Ogilvy


"H.A. de Wilde" wrote:


Dear Tom,

thank you for your reply.
Unfortunately I am not able to check for the existence of Word.
Which condition should I use to exit the loop?

With kind regards,
Hugo


--
H.A. de Wilde
------------------------------------------------------------------------
H.A. de Wilde's Profile: http://www.excelforum.com/member.php...o&userid=30679
View this thread: http://www.excelforum.com/showthread...hreadid=538800

Dear Tom,

The loop works but is not working fine.
When the Word-document is minimized or there is a switch to anothe
application, the system does't perform good. Alos the return to Exce
is very slow. I think the loop is too risky. Sometimes an erro
occurs.


Dear Cheers,

Pasting the text:

Private WithEvents g_oApp As Word.Application
Private WithEvents g_oDoc As Word.Document

into a module, it turns into red.

Thanks for your replies.

Kind regards,
Hug

--
H.A. de Wild
-----------------------------------------------------------------------
H.A. de Wilde's Profile: http://www.excelforum.com/member.php...fo&userid=3067
View this thread: http://www.excelforum.com/showthread.php?threadid=53880

Hugo,
In a class module:
Dim WithEvents MyWord As Word.Application

Private Sub MyWord_Quit()
MsgBox "Excel again"
End Sub

Your original sub would need to end before then original MsgBox.
But you will then be notified when Word quits.

NickHK

"H.A. de Wilde"
wrote in message
news:H.A.de.Wilde.27a3bm_1146738301.6109@excelforu m-nospam.com...

L.S.,

Within Excel I am running a script that opens a new Word-document.
I like to stop the script temporarily untill the Word-session is
closed.

Example:

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.documents.Add

Msgbox ("Excel again")

The message should appear after closing the Word-session.

Possible?
With kind regards,
Hugo


--
H.A. de Wilde
------------------------------------------------------------------------
H.A. de Wilde's Profile:
http://www.excelforum.com/member.php...o&userid=30679
View this thread: http://www.excelforum.com/showthread...hreadid=538800