Application.Quit
13.06.2004 14:28:51
FloGo
Ich hab da ein Problem mit einem Worddokument bzw. mit dem schließen des Dokumentes:
Dim myWord As Object
Set myWord = GetObject("C:\Test\ User.doc")
myWord.Application.Documents.Open "C:\Test\ User.doc"
'Die Daten werden von der Tabelle in das Worddokument eingelesen
myWord.PrintOut
Application.Wait Now + TimeSerial(0, 0, 2)
myWord.Application.Quit (True) 'Änderungen werden gespeichert
Die Daten werden richtig eingelesen. Anschließend wird das Dokument gedrukt (zeitverzögerung zum druken). Nun wird die Worddatei und Word geschloßen. Nun mein Prob. er speichert aber die Änderungen die ich vorgenommen habe.
Ich habs auch so pob.:
Dim myWord As Object
Set myWord = GetObject("C:\Test\ User.doc")
myWord.Application.Documents.Open "C:\Test\ User.doc"
'Die Daten werden von der Tabelle in das Worddokument eingelesen
myWord.PrintOut
Application.Wait Now + TimeSerial(0, 0, 2)
MyWord.close savechanges:=False
myWord.Application.Quit (True) 'hier kommt der Fehler
aber dann kommt der Laufzeitfehler:
Automatisierungsfehler
Das aufgerufene Objekt wurde von den Clients getrennt
Hoffe jemand kann mir helfen :-(
FloGo