Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.10.21;
Скачать: 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 вся ветка

Текущий архив: 2007.10.21;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.041 c
15-1190414620
Kostafey
2007-09-22 02:43
2007.10.21
А форум-то наш клиентами самый богатый.


15-1190600574
Slider007
2007-09-24 06:22
2007.10.21
С днем рождения ! 24 сентября 2007 понедельник


15-1190294866
Azize
2007-09-20 17:27
2007.10.21
Новая среда разработки от CodeGear


8-1168524033
FAskerQ
2007-01-11 17:00
2007.10.21
Winamp


15-1190466131
mikezubr
2007-09-22 17:02
2007.10.21
{$E .XXXXXXX}





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский