Einzelnen Beitrag anzeigen

Delphi.Narium

Registriert seit: 27. Nov 2017
2.073 Beiträge
 
Delphi 7 Professional
 
#4

AW: Word-Datei einbinden, bearbeiten, speichern

  Alt 23. Jun 2021, 13:11
Wenn Du im Taskmanager nachschaust, wirst Du feststellen, dass Word noch läuft (und das geöffnete Dokument nicht geschlossen wurde und (vermutlich) jeder ButtonClick eine weitere Wordinstanz erstellt).

Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
  vParam : OleVariant;
begin
  // Aktuelles Dokument unter neuem Namen speichern.
  WordApp.ActiveDocument.SaveAs('D:\Test2.docx');
  // Aktuelles Dokument (ohne Änderungen zu speichern) schließen.
  vParam := wdDoNotSaveChanges;
  WordApp.ActiveDocument.Close(vParam);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  WordApp.Quit; // Word beenden.
  WordApp := Unassigned;
end;
  Mit Zitat antworten Zitat