Kommunikation Delphi und MS-Word 2003

[Dr_Funk]

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;