Hallo,
ich befülle über die Komponenten TWordApplication und TWordDocument eine Wordvorlage, was auch wunderbar funktioniert. Das Dokument soll aber nach der Bearbeitung in einer Datenbank gespeichert werden, daher möchte ich auf Events reagieren können, vor allem auf OnBeforeSave.
Es werden aber alle Events sowohl von der WordApplication als auch vom Dokument ignoriert.
Kennt jemand die Ursache dafür?
Ich arbeite mit Word2010 und DelphiXE.
Vereinfacht sieht mein Code so aus:
Vielen Dank für die Hilfe,
Mechthild Lemke
ich befülle über die Komponenten TWordApplication und TWordDocument eine Wordvorlage, was auch wunderbar funktioniert. Das Dokument soll aber nach der Bearbeitung in einer Datenbank gespeichert werden, daher möchte ich auf Events reagieren können, vor allem auf OnBeforeSave.
Es werden aber alle Events sowohl von der WordApplication als auch vom Dokument ignoriert.
Kennt jemand die Ursache dafür?
Ich arbeite mit Word2010 und DelphiXE.
Vereinfacht sieht mein Code so aus:
Code:
var WordApp : TWordApplication; WordDocument : TWordDocument; procedureCreateWordAppAndDoc; begin WordApp := TWordApplication.Create(Self); WordDocument := TWordDocument.Create(Self); end; procedure FillVorlage (); begin NewTemplate := False; Visible := True; WordApp.Connect; WordApp.Visible := True; WordDocument.ConnectTo(WordApp.Documents.Add('C:\meineVorlage.dot', False, EmptyParam, True)); WordDocument.Fields.Item('Name').Result.Text := 'Inhalt'; end; procedureFreeWordAppAndDoc; begin WordApp.Disconnect; WordDocument.Free; WordApp.Free; end; procedure WordAppDocumentBeforeSave(ASender: TObject; const Doc: _Document; var SaveAsUI, Cancel: WordBool); begin ShowMessage('Event WordAppDocumentBeforeSave ausgelöst.'); end;
Mechthild Lemke
Comment