| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Открытие файла Word [D7, XP]
555 © (2006-01-24 05:50:00)Подскажите, пожалуйста, как стандартными (D7) компонентами
открыть документ Word (только текст) и отобразить его в TMemo ???
555 (2006-01-25 05:29:00) [1]К OLE всё прикрутил тока так и не смог найти как скролинг файла устроить, пришлось форму и оле растягивать :)
PS Может поможете с этим разобраться
Bratskiy (2006-01-25 04:37:00) [2]Вместо Memo можно использовать TRichEdit там текст отображается нормально.
YurikGL (2006-01-24 21:13:00) [3]А как в memo хотите корректно отобразить таблицу?
Помимо пути [1] можно из Word средствами OLE сохранить файл в txt и загрузить его в memo
> пожалуйста выложите весь код проги а то не догоню...
А этого не проси.... всю прогу писать никто не будет :)
555 (2006-01-24 17:34:00) [4]Файл отображается коряво.
Помогите с Delphi(головой:) совсем не дружу задали такую тему :
В 1 объект (OLE например или memo) загружаем 2 файла, по нажатию
на первую кнопку загружаем Ф1 в О(М), по нажатию на 2-ю очищаем
О(М) и записываем туда ф2
пожалуйста выложите весь код проги а то не догоню...
Заранее спасибо
Bratskiy (2006-01-24 07:17:00) [5]Добавляешь на форму компоненты TWordApplication и TWordDocument
потом что-то вроде
procedure TForm1.Button1Click(Sender: TObject);
var
path:OleVariant;
WA:TWordApplication;
WD:TWordDocument;
begin
path:='Путь к файлу';
WA:=WordApplication1;
WA.Documents.Open(path, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
WA.Visible:=false;
WD:=WordDocument1;
WD.ConnectKind := ckAttachToInterface;
WD.ConnectTo(WA.ActiveDocument);
Memo1.Text:=WD.Content.text;
WD.Close;
WA.Disconnect;
end;
| |
