TWordApplication - wie beim Schliessen erkennen ob ein Dokument verändert wurde?

[Delphi.Narium]

Hilft Dir (sinngemäß) sowas?

Delphi-Quellcode:

procedure TForm1.WordDocumentBeforeSave(ASender: TObject; const Doc: WordDocument; SaveAsUI: WordBool; var Cancel: WordBool);
begin
  SaveAsUI := False; // Verhindert das Anzeigen des Speicherdialogs
  Doc.Save; // Speichert das Dokument
end;

procedure TForm1.SaveDocument;
begin
  WordApp := TWordApplication.Create(nil);
  try
    WordApp.Connect;
    WordApp.Documents.Open('C:\Pfad\zum\Dokument.docx');
    WordApp.OnDocumentBeforeSave := WordDocumentBeforeSave;
    // Weitere Bearbeitungen am Dokument
    // Irgendwas mit dem Dokument machen
    if not WordApp.ActiveDocument.Saved then
    begin    
      WordApp.ActiveDocument.Save; // Speichert das Dokument
    end;
  finally
    WordApp.Disconnect;
    WordApp.Free;
  end;
end;