Экспорт в word из RichEdit с теми же настройками font

[Polotenchik]

Есть на форме RichEdit1.
Чтобы экспортировать в ворд, делается так:

uses ComObj;

var
  WordApp: OleVariant;
begin
  WordApp := CreateOLEObject('Word.Application');
  WordApp.Documents.Add();
  WordApp.Selection.TypeText(RichEdit1.Text);
  WordApp.Visible := true;

Но у меня что-то в RichEdit1 выделено жирным, что-то наклонным шрифтом и т.д. Как мне экспортировать в ворд с теми же свойства font, что в RichEdit1 ? Или пусть в RichEdit1 любые свойства, но как мне тогда назначить экспорт в определенном шрифте, отступе, расстояниями между строками? А то он вообще экспортирует с расстоянием между строками в 10 пт.

[Stilet]

Предлагаю попробовать через Клипбоард. Выделить все - скопировать, в Ворде вставить.
Иначе думаю придется проходиться по каждой буквочке...

[Serge_Bliznykov]

Вы меня извините, если не в тему... а может просто просто сохранить RichEdit в файл (с расширением RTF), который потом Word прекрасно откроет (там будут и отступы и форматирование и прочая, прочая...)

[Polotenchik]

Всем спасибо!

[Вов@ныч]

Можно через буфер обмена

RichEdit1.SelectAll;
RichEdit1.CopyToClipboard;
WordApp.Selection.Paste;