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

[Chemiker]

Hallo Robert,
man kann mit ActiveDocument.Saved = FALSE prüfen, ob das Dokument seit dem letzten Speichern geändert wurde.

Delphi-Quellcode:

procedure TfWordDemos.WordStartenClick(Sender: TObject);
var
  FWord : OleVariant;
  DateiName : TFileName;
begin
  FWord := CreateoleObject('Word.Application');
  FWord.visible:= TRUE;

  DateiName := 'C:\Users\Internet\Documents\Test.Docx';
  FWord.Documents.Open(FileName:= DateiName);

  ShowMessage('Word zeigen');


  // In diesem Beispiel wird das aktive Dokument gespeichert,
  // wenn es seit dem letzten Speichern geändert wurde.
  if FWord.ActiveDocument.Saved = FALSE then
  begin
    FWord.ActiveDocument.save;           {Word Dokument speichern}
  end;

  If FWord.Documents.Count >= 1 then
  begin
    FWord.ActiveDocument.Close;
  end;
  FWord.Quit;
end;

Bis bald Chemiker