Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.17;
Скачать: CL | DM;

Вниз

RichEdit и документы Word   Найти похожие ветки 

 
Gad ©   (2004-02-07 11:35) [0]

Здравствуйте.
У меня такой вопрос:
Есть Word овский файл и есть компонент TRichEdit
подскажите пожалуста как содержимое этого файла помесить в поле вывода компанента естессно не открывая самого верда. Если можно поподробнее.
Заранее благодарен.


 
Юрий Федоров ©   (2004-02-07 11:44) [1]

наверное никак
только конвертировать *.doc в *.rtf (хотя бы тем же вордом), а потом уже открыть в TRichEdit


 
Gad ©   (2004-02-07 11:47) [2]

а можно поподробнее как это делаеться?
я просто никогда не сталкивался с такой проблемой и поэтому возможно задаю глупые вопросы


 
Александр из Минска ©   (2004-02-07 15:35) [3]

uses ..., ComObj;
.................
var
WD : OleVariant;
begin
try
WD := CreateOleObject("Word.Application");
except
ShowMessage("Невозможно запустить Microsoft Word");
Exit;
end;
WD.Visible := False;
try
WD.Documents.Open("temp.doc");
except
ShowMessage("Невозможно открыть документ в Microsoft Word");
Exit;
end;
try
WD.ActiveDocument.SaveAs("temp.rtf", $00000006);
except
ShowMessage("Невозможно сохранить документ из Microsoft Word");
Exit;
end;
try
WD.ActiveDocument.Close;
WD.Quit;
except
ShowMessage("Переконвертация прошла успешно. Однако, невозможно освободить оперативную память от данного документа Microsoft Word");
end;
RichEdit1.Lines.LoadFromFile("temp.rtf");
end;

Надеюсь, поможет.


 
Александр из Минска ©   (2004-02-07 15:39) [4]

+ еще WD.Free; внизу кинь


 
Gad ©   (2004-02-08 08:36) [5]

Спасибо огромное за помощь!!!!


 
TUser ©   (2004-02-08 11:16) [6]

Открывай в OleContainer.


 
KilkennyCat ©   (2004-02-08 13:51) [7]

2 Юрий Федоров

Ну почему же никак... голый текст выдрать, без форматирования - очень легко. С форматированием - сложнее, но тоже не проблема.
А при конвертации открывать Ворд, даже невизуально, некрасиво, ИМХО. Можно просто использовать, если не ошибаюсь MSCONV97.DLL и соответсвующий *.CNV (MSWRD832.CNV, например.)

А пример выдерки текста я уже где-то здесь давно публиковал.



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

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

Наверх




Память: 0.48 MB
Время: 0.013 c
3-53376
AlexandrPolyakov
2004-01-26 09:36
2004.02.17
DataSet и динамический массив данных


1-53465
scorpi
2004-02-06 14:32
2004.02.17
StringGrid цвет шрифта в каждой ячейке


1-53455
Dik
2004-02-06 15:51
2004.02.17
TRichEdit


7-53790
Zaratustra
2003-11-30 15:02
2004.02.17
STDOUT и консольные приложения


1-53549
Lucifer
2004-02-05 12:50
2004.02.17
Подскажите в чём у меня ошибка - сам понять не могу.