Ich hab es mit dem Ereignis 'OnDocumentBeforeSave' gelöst!
Delphi-Quellcode:
procedure TForm1.WordAppDocumentBeforeSave(ASender: TObject;
const Doc: _Document; var SaveAsUI, Cancel: WordBool);
// Hier wird der MS-Word Speicher-Dialog abgefangen und man kann eine
// eigene Routine durchführen.
// Durch "Cancel" wird der Word- Speichern-unter-Dialog unterbunden.
// Mit "SaveAsUI" kann man wohl einen eigenen Speicher-Dialog erzeugen.
var
OleStrFileName : OLEVariant;
begin
if Assigned(WordDoc) then begin
OleStrFileName := '';
OleStrFileName := 'c:\test1.doc';
WordDoc.SaveAs(OleStrFileName);
ShowMessage ('Das Dokument wurde gespeichert.');
Cancel := true; // bricht den Speicherdialog ab
end; // if Assigned(WordDoc)
end;