Word beenden ohne Dokument zu speichern.

[ickehausen]

Ich ersetze in ein Worddokument Textmarken mit Delphi, was auch gut funktioniert. Anschließend drucke ich es aus und möchte das Dokument ohne es zu speichern schließen. Im Moment mache ich es wie folgt:

Delphi-Quellcode:

procedure TFrmVernichtungsprotokoll.Druck;
var FileName:OleVariant;
    vWhat, vBookmark:OleVariant;
begin
  Filename := GetAPpPath + '\Vernichtung.doc';
  WordApplication1.Connect;
  WordApplication1.Documents.OpenOld(FileName, EmptyParam, EmptyParam,
  EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam,
  EmptyParam);
  WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
  WordApplication1.Visible := True;
  vWhat:=wdGoToBookmark;
  vBookmark:='Name';
  WordApplication1.Selection.GoTo_(vWhat,emptyParam,emptyParam,vBookmark);
  WordApplication1.Selection.TypeText(DMMain.IBDataSetPrint.FieldByName('NNAME').AsString); 
  WordApplication1.PrintOut;
  WordDocument1.Close;
  WordDocument1.Disconnect;
end;
.
.
.
procedure TFrmVernichtungsprotokoll.Timer2Timer(Sender: TObject);
begin
  WordApplication1.Quit;
  WordApplication1.Disconnect;
end;

Leider wird das Dokument dann immer mit den Inhalten der Textmarken gespeichert. Wie kann ich dass Speichern verhindern?

[Progman]

Es müsste doch möglich sein, von dem aktuellen Document eine Kopie zu erstellen und damit zu arbeiten? Dann wird das originale Document ja nicht verändert ;)

[Reinhardtinho]

Delphi-Quellcode:

var
  _SaveChanges : OleVariant;
begin
  ...

  _SaveChanges := False;
  WordDocument1.Close(_SaveChanges, EmptyParam, EmptyParam);
end;

[ickehausen]

Danke an Euch für die schnellen Antworten. Reinhardtinho, funktioniert bestens. :bounce1: :thumb: