Microsoft Word Prozess bleibt aktiv; Quit Fehler

MisterBum83 · Beiträge: 245 Erhaltene Danke: 2 WIN XP Delphi 6

Hallo zusammen,

ich baue mittels

Delphi-Quelltext

1:
2:

FMSWord: variant;
FMSWord := CreateOleObject('Word.Basic');

eine Verbindung zu Word her. Wenn ich diese über unassigned freigebe, bleibt der Prozess winword.exe noch aktiv.

Wenn ich versuche, mittels

markieren

Delphi-Quelltext

1:
2:

FMSWord.Quit(wdDoNotSaveChanges, EmptyParam, EmptyParam);
FMSWord.Disconnect;

den Prozess versuche zu beenden, dann kommt die Meldung "Quit wird vom Automatisierungsobjekt nicht unterstützt.
Jemand eine Idee warum, bzw. wie bekomme ich anders den Prozess beendet?

Gruß MisterBum

thepaine91 · Verfasst: Mi 06.02.13 14:59

Also laut Dokumentation sollte das funktionieren. Dort wird allerdings "Word.Application" verwendet.

Unter Umständen hilft dir das weiter.

Tranx · Verfasst: Do 07.02.13 11:45

Schaue mal hier nach:

www.delphi-treff.de/...-automation-steuern/

Dort steht bei "Word.Basic" etwas von "früheren Versionen". Das kann schon erklären, dass das so nicht funktioniert.

_________________
Toleranz ist eine Grundvoraussetzung für das Leben.

MisterBum83 · Beiträge: 245 Erhaltene Danke: 2 WIN XP Delphi 6

Wenn ich auf Word.Application umsteige, dann klappt leider der Rest von meinem Programm nicht mehr. Daher muss ich bei Word.Basic bleiben.

Sonst keiner eine Idee?

Tranx · Verfasst: Fr 08.02.13 19:05

Entschuldige, aber das verstehe ich nicht. Wo definierst Du denn die Variant-Variable für Word? Global? Lokal?

Wenn es global ist, dann versuche es doch mal mit einer lokalen Definition, dann sollte das klappen. Allerdings scheint es nun mal so, dass Word.Basic offensichtlich nur für frühere Word-Versionen funktioniert, während Word.Application bei den neueren Versionen funktioniert. Es mag ja sein, dass Du mit Word.Basic Word starten kannst. Aber anscheinend eben nicht beenden. Oder versuche es doch mit

markieren

Delphi-Quelltext

1:	FMSWord.Free;

Aber möglicherweise wird damit Word auch nicht beendet. Ein Versuch wäre es Wert.

_________________
Toleranz ist eine Grundvoraussetzung für das Leben.

Gerd Kayser · Verfasst: Fr 08.02.13 19:31

MisterBum83 hat folgendes geschrieben :

Daher muss ich bei Word.Basic bleiben.

Versuchs mal mit:

Zitat:

Word.FileExit(1);
quits Word, saving any modified file. If you pass 2 as the parameter, files are not saved; if the parameter is 0 or omitted, the user is prompted."

Quelle: www.djpate.freeserve...ord.htm#WordStarting

MisterBum83 · Beiträge: 245 Erhaltene Danke: 2 WIN XP Delphi 6

Zitat:

Word.FileExit(1);
quits Word, saving any modified file. If you pass 2 as the parameter, files are not saved; if the parameter is 0 or omitted, the user is prompted."

Quelle: www.djpate.freeserve...ord.htm#WordStarting

Das war die Löung. DANKE!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme