Открытие файла Word

← →
555 (2006-01-24 05:50) [0]

Подскажите, пожалуйста, как стандартными (D7) компонентами
открыть документ Word (только текст) и отобразить его в TMemo ???

← →
Bratskiy © (2006-01-24 07:17) [1]

Добавляешь на форму компоненты 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;

← →
555 (2006-01-24 17:34) [2]

Файл отображается коряво.
Помогите с Delphi(головой:) совсем не дружу задали такую тему :
В 1 объект (OLE например или memo) загружаем 2 файла, по нажатию
на первую кнопку загружаем Ф1 в О(М), по нажатию на 2-ю очищаем
О(М) и записываем туда ф2
пожалуйста выложите весь код проги а то не догоню...
Заранее спасибо

← →
YurikGL © (2006-01-24 21:13) [3]

А как в memo хотите корректно отобразить таблицу?
Помимо пути [1] можно из Word средствами OLE сохранить файл в txt и загрузить его в memo

> пожалуйста выложите весь код проги а то не догоню...

А этого не проси.... всю прогу писать никто не будет :)

Вместо Memo можно использовать TRichEdit там текст отображается нормально.

← →
555 (2006-01-25 05:29) [5]

К OLE всё прикрутил тока так и не смог найти как скролинг файла устроить, пришлось форму и оле растягивать :)
PS Может поможете с этим разобраться

Открытие файла Word Найти похожие ветки