| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Передеча форматированного текста в Word [D7, WinXP]

Berkut ©   (2007-08-06 09:15:00) 

Всем привет!
Каким образом передать отформатированный текст из 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 }

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

---

JanMihail   (2007-08-06 22:29:00) [1]

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

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

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

---

JanMihail   (2007-08-06 22:21:00) [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;

---

Berkut   (2007-08-06 10:20:00) [3]

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

---

Наверх