Форум: "Начинающим";
Текущий архив: 2006.02.12;
Скачать: [xml.tar.bz2];

Вниз

Открытие файла 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


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

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

---

← →
Bratskiy ©   (2006-01-25 04:37) [4]

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

---

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

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

---

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

Форум: "Начинающим";
Текущий архив: 2006.02.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.034 c