Передеча форматированного текста в Word

← →
Berkut (2007-08-06 09:15) [0]

Всем привет!
Каким образом передать отформатированный текст из Word!

Если идти обычным путем WApp.Range.Text := RTF_Text, то Word не понимает все форматирование и после присвоения, текст в Word такой:
{\rtf1\ansi\ansicpg1251\deff0\deflang1049{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} \viewkind4\uc1\pard\lang1033\b\i\f0\fs16 Hello\lang1049\b0\i0\f1 \par \par }

Еще конечно можно через буфер обмена , но это в моей ситуации не выход. Может кто сталкивался. Подскажите...

← →
Berkut (2007-08-06 10:20) [1]

Каким образом передать отформатированный текст из Word!
Поправочка не из Word а в Word

← →
JanMihail © (2007-08-06 22:21) [2]

var
Word: OleVariant;
implementation

uses ComObj;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Word := CreateOleObject("Word.Application");
Word.Visible := true;
Word.Documents.Add;
Word.Selection.TypeText("Текст" + #13);
Word.Selection.Font.Bold := 1;
Word.Selection.TypeText("Текст жирный" + #13);
Word.Selection.Font.Italic := 1;
Word.Selection.TypeText("Текст жирный наклонный" + #13);
Word.Selection.Font.Italic := 0;
Word.Selection.Font.Underline := 1;
Word.Selection.TypeText("Текст жирный подчеркнутый" + #13);
end;

Сохранить документ так.
Word.ActiveDocument.SaveAs("C:\123.doc");

Закрыть документ так
Word.ActiveDocument.Close;

Закрыть Word так:
Word.Quit;
Правда после закрытия Worda методом Quit, прога на какое-то время подвисает.

Передеча форматированного текста в Word Найти похожие ветки