Скачать: CL | DM;

Передеча форматированного текста в 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;

---

← →
JanMihail ©   (2007-08-06 22:29) [3]

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c