Detect status of Word

JPLavalley · August 26th, 2003, 04:22 PM

I have a VB application that launches Word. It must then wait for the user to close Word. I can't seem to detect when Word is closed (or hang while Word is open).

I have tried getting the exit code from the OpenProcess function. When I do that Word appears to open and close immediately (if you already have one instance of word running). If you run the following code when there is already one instance of Word running, the message box fires immediately after the new instance of Word loads

Code:

   Dim ProcessId&
   Dim hProcess&
   Dim ExitCode&
   ProcessId = Shell("C:\PROGRA~1\MICROS~3\Office10\WINWORD.EXE", vbNormalFocus)
   hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessId)
   Do
      Call GetExitCodeProcess(hProcess, ExitCode)
      DoEvents
   Loop While (ExitCode = STILL_ACTIVE)
   Call CloseHandle(hProcess)
   MsgBox "Word was closed"

Help???

 - Jerome

CarlR · August 28th, 2003, 12:31 PM

Jerome,

VB doesn't have to wait for Word to be closed â because it can simply hook into the currently active Word program. Actually, once you've included a reference to Word (under Project | References) -- you should use code similar to that shown below --

Code:

Dim WordApp As Object
On Error GoTo APPLICATION_CREATE            ' An error will cause us to initiate the Appl.
Set WordApp = GetObject(, "Word.Application") ' Obtaining ref to active app
GoTo SKIP_APPLICATION_CREATE                ' Of course if it's already there, then we'll use that
APPLICATION_CREATE:
Set WordApp = CreateObject("Word.Application")
SKIP_APPLICATION_CREATE:
On Error GoTo BYE            ' Back to our normal way of life

For more info relating to automation, see the code snippets at http://www.vba-programmer.com

CarlR