WordApplication

[Delphi-Coder]

Hallo,
ich bin's schon wieder !

Ich lasse jetzt also über die Komponenten WordApplication und WordDocument Word öffnen und schreibe einige Daten in eine Vorlage!
Wenn der Benutzer Word beendet (und nur ER kann das, da er die Möglichkeit haben soll die Daten korrigieren zu können), dann wird gefragt ob die Änderungen gespeichert werden sollen!
Gibt es eine Möglichkeit das zu verhindern?

Vielen Dank!


Delphi-Coder

[sakura]

Nur wenn Du das Dokument gerade vorher gespeichert hast

[Hansa]

Hi,

und wie geht das am besten ?

Gruß
Hansa

[edit=Daniel B]Doppelpost gelöscht; MfG Daniel B.[/edit]

[Delphi-Coder]

Hallo,

ich hab das Problem jetzt (fast) gelöst! In meinem Programm steht jetzt ein zusätzlicher Button zur Verfügung, über den Word geschlossen werden muss! Mit diesem Button wird Word geschlossen ohne die Änderungen zu speichern...

Delphi-Quellcode:

procedure TPersonendaten.BitBtn3Click(Sender: TObject);
var SaveChanges, OriginalFormat, RouteDocument: OleVariant; 
begin 
  SaveChanges := WdDoNotSaveChanges; 
  OriginalFormat := UnAssigned; 
  RouteDocument := UnAssigned; 

  WordApplication1.Quit(SaveChanges, OriginalFormat, RouteDocument);
  WordApplication1.Disconnect;
end;

Das ist natürlich ne ziemlich unsaubere Lösung, da der Benutzer Word ja immernoch selber schließen kann und dann beim nächsten Öffnen ein Fehler erscheint!

Gibt es keine Möglichkeit das Schließen durch den Benutzer zu verhindern, oder wenigstens abzufangen um dann wieder den oben stehenden Code auszuführen???

Vielen Dank!


Delphi-Coder

[berni]

Genau mein Problem.
Gibt es dazu ne Lösung ?

[Keldorn]

Zitat von Delphi-Coder:

Gibt es keine Möglichkeit das Schließen durch den Benutzer zu verhindern, oder wenigstens abzufangen um dann wieder den oben stehenden Code auszuführen???

hab jetz hier nur d3, aber so aus dem Gedächtnis: schaut euch mal die Ereignisse von Wordapplication an. da sollte es ein OnQuit geben.

Mfg Frank

[berni]

Also so richtig klappt das mit OnQuit nicht.
Man bekommt trotzdem die SaveAs Möglichkeit ...
Irgendwie ist das alles ohne Doku schon ein ganz schönes Kreuz
und diese VB Hilfe ist ja auch nicht so das wahre ....

Delphi-Quellcode:

procedure TfrmAngebotstool.WordApplicationAngebotDocumentBeforeSave(
  Sender: TObject; var Doc, SaveAsUI, Cancel: OleVariant);
begin
     SaveAsUI:=FALSE;
     Cancel:=TRUE;
     // ShowMessage(' Speichern ist hier nicht erlaubt !');
end;

procedure TfrmAngebotstool.WordApplicationAngebotOnQuit(Sender: TObject);
var
   Save: OleVariant;
begin
     Save := FALSE;
     WordApplicationAngebot.Quit(Save);
     WordApplicationAngebot.Disconnect;
end;

[Edit=Sakura]Delphi-Tags gesetzt[/Edit]