RichEdit.Text in Word-Document übertragen

[Ralf Stehle]

Wenn ich RichEdit.Text in Word-Document übertragen erhalte ich nur den unformatierten Text.
Gibt es eine Möglichkeit, den Text mit allen Formatierungen in ein Word-Document zu übertragen? Da ich den RichEdit.Text mit einer Textmarke mitten in ein Dokument einfügen möchte, ist der Weg über Abspeichern als Datei nicht möglich

Folgender Code ergibt leider nur unformatierten Text im Word-Document:

Delphi-Quellcode:

With WordApplication1.Selection do begin
  vBookmark:='Textmarke1'; vWhat:=wdGotoBookmark;
  RichEdit1.PlainText := False;
  TypeText(RichEdit1.Text); 
end