Word schliessen

[Koverhage]

wie kann ich es verhindern, das der Anwender das X klickt um Word zu beenden, bevor das Dokument aufgebaut ist.
Das ergibt nämlich so hässliche Fehlermeldungen Automations Error.

[Tom]

Du kannst dem Quit-Ereignis einfach einen Codeblock zuordnen:

oWord:Quit := {||if(diesunddas,dasunddas,irgendwas)}

[Rolf Ramacher]

Hi Klaus,

wie machst du dass denn mit dem Word-Dokument ? Nur zum ausdrucken ? - Dies habe ich bei mir auch - so gelöst

Code: Alles auswählen

    oWord := CreateObject("Word.Application") 

   IF Empty( oWord ) 
     MsgBox( "Microsoft Word ist nicht installiert" ) 
     RETURN Nil
   ENDIF 

   oWord:visible   := .f.                               // Word unsichtbar! 
   cActivePrinter  := oWord:Activeprinter     // aktuellen Drucker feststellen 
   oWord:Activeprinter:= cDrucker               // Neuen Drucker setzen 
   oWord:documents:Open(cDoc)                  
   oDoc       := oWord:ActiveDocument 
   oDoc:PrintOut(.f.)                                  // .T.= Druck im Hintergrund 
   oWord:Activeprinter:= cActivePrinter       // alten Drucker setzen 
   oDoc:close() 
   oWord:Quit() 
   oWord:destroy() 
   oWord := NIL 

[Koverhage]

Rolf,

nicht nur drucken, vorher Textmarken ersetzen.

Sobald der User zum Beispiel das X zum Schließen klicht und Word noch nicht fertig ist kommt dieser Automation Error. Noch extremer ist es bei Excel.

[Koverhage]

Tom,

da ist das Programm schon abgeschmiert, siehe auch meine Antwort an Rolf.

Ich sehe als einzige Möglichkeit die Tastatur zu sperren bis Word fertig ist.
Das sollte eigentlich meine Frage sein, wie erkenne ich das Word fertig ist, d.h. alle Textmarken ersetzt und das Dokument vollständig geladen ist.

[stevie]

Rolf,

nicht nur drucken, vorher Textmarken ersetzen.

Sobald der User zum Beispiel das X zum Schließen klicht und Word noch nicht fertig ist kommt dieser Automation Error. Noch extremer ist es bei Excel.

Lass es doch visible:=.F., dann sieht der User nicht, das Word arbeitet.