If IsAppRunning         ( "OpusApp" )           &&  Checks if MS-Word already running
    oWord = GetObject    (,"Word.Application")   &&  Conects to the running instance
 else
    oWord = CreateObject ( "Word.Application")   &&  Creates a new instance
 endif

 . . .
 
 Function IsAppRunning
*-------- ------------
 LParameters pAppClassName

 Private cClassName, cNullPointer, nRetCode

 nRetCode      = 0
 cNullPointer  = .Null.
 cAppClassName = pAppClassName

 Declare Integer FindWindow In Win32API As CheckForWindow ;
         String  @cAppClassName, ;
         String  @nNullPointer

 nRetCode = CheckForWindow (@cAppClassName, @cNullPointer)

 Release cClassName, cNullPointer

 Return IIf (nRetCode = 0, .F., .T.)

 EndFunc     && IsAppRunning

*============================================================================