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

[rdeutsch]

Hallo

Im untenstehenden Code wird dem Event OnDocumentBeforeClose eine entsprechende Procedure WordBeforeClose zugewiesen. In dieser möchte ich - falls der Benutzer das Dokument verändert hat - eine Möglichkeit zum Speichern anbieten.
Wenn das Dokument nicht verändert wurde, dann soll Word ohne weitere Meldung geschlossen werden.

Wie kann man erkennen, ob ein Worddokument verändert wurde?
Meine bisherige Suche blieb leider erfolglos.

Delphi-Quellcode:

  wordApp := TWordApplication.Create(self);
  wordApp.Documents.Open(docFilename, EmptyParam, false, EmptyParam,
                         EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                         EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  wordApp.Visible := true;
  wordApp.Activate;
  wordApp.ScreenUpdating := true;
  wordApp.OnDocumentBeforeClose := WordBeforeClose;

Danke für die Hilfe.
Grüsse, Robert

[himitsu]

Datei-Änderungsdatum oder Dateiinhalt vorher speichern
und danach vergleichen?



Ein Modified-Property nicht entdeckt, oder Dergleichen.
Es gibt aber ein Saved-Property,
sowie ein Save-Event.

https://learn.microsoft.com/en-us/do...view=vsto-2022
https://learn.microsoft.com/en-us/do...view=vsto-2022

[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

[himitsu]

Man kann, aber man tut es niemals nicht ... Dieses "auf True oder False prüfen"

[rdeutsch]

Vielen Dank für eure Tipps. Das Erkennen ob sich ein Dokument fange ich nun im Event OnDocumentBeforeSave mit Doc.Saved ab. Das klappt soweit.
Das Problem ist, dass dieser Event nach dem Einblenden und Anwählen des "Speichern"- oder "Nicht speichern"-Buttons aktiv wird.



Gibt es eine Möglichkeit zu erkennen, ob der "Speichern"- oder "Nicht speichern"-Button angewählt wurde?

In der Beschreibung zum Event Application.DocumentBeforeSave-Ereignis (Word) wird zwar der Parameter SaveAsUI erwähnt, aber dieser ist immer gleich. Egal welcher Button angewählt wurde.

[himitsu]

Klar, BeforeSave kommt vor dem Speichern,
also nachdem man gesagt hat, dass gespeichert werde soll. (in dem Dialog)
Aber vermutlich nicht, wenn dort jemand Nein oder Abbrechen sagt.

Im BeforeSave das Save zu sagen ist etwas unnötig, da es gerade dabei ist,
wenn, dann vorher Save aufrufen, um es "selbst" zu speichern.