IF TYPE( 'oWord.Name' ) = 'C'
  IF oWord.Documents.Count > 0
    *** a document is open
  ELSE
   oWord.Quit()
  ENDIF
ENDIF