Скачать: CL | DM;

Создать документ Word   Найти похожие ветки 

← →
V l a d i m i r   (2004-09-08 16:10) [0]

Здравствуйте! Вот такой, возможно, простой вопрос: требуется при нажатии на кнопку создать документ Word, сделать его видимым, чтобы пользователь мог занести любую информацию и сохранить этот документ...

---

← →
Чайник   (2004-09-08 17:04) [1]

shellexecute

---

← →
BillyJeans   (2004-09-08 17:07) [2]

CreateOleObject("Word.Application");

---

← →
V l a d i m i r   (2004-09-08 18:25) [3]

А как это можно сделать, используя WordApplication и WordDocument?

---

← →
Чайник   (2004-09-08 18:41) [4]

а зачем тебе все это?.. те ведь надо прост запустить ворд, а не общаться с ним...

---

← →
V l a d i m i r   (2004-09-08 18:48) [5]

У меня информация в БД хранится и нужно создать небольшой отчет... Как таблицы добавлять и форматировать ячейки я нашел информацию, а как открыть и сделать видимым - не знаю. Стандартным QReport"ом сделать можно, но он не надежный - вот поэтому нужен ворд.

---

← →
Чайник   (2004-09-08 18:52) [6]

так с этого и надо было начинать, а то открыть ворд и все... это уже OLE..

---

← →
YurikGL ©   (2004-09-08 21:00) [7]

W1:TWordApplication

   W1.Connect;
   W1.Visible:=true;
   W1.Documents.add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);

//поворачиваем лист
   w1.ActiveDocument.PageSetup.Orientation:=wdOrientLandscape;
//Формируем верхний колотитул    W1.ActiveDocument.ActiveWindow.View.SeekView:=wdSeekCurrentPageFooter;
   w1.Selection.TypeText("Лист ");
   vr1:=wdFieldPage;
   W1.Selection.Fields.Add(W1.Selection.Range,vr1,EmptyParam,EmptyParam);
   w1.Selection.TypeText(" из ");
   vr1:=wdFieldNumPages;
   W1.Selection.Fields.Add(W1.Selection.Range,vr1,EmptyParam,EmptyParam);
   w1.Selection.ParagraphFormat.Alignment:=wdAlignParagraphRight;
   W1.ActiveDocument.ActiveWindow.View.SeekView:=wdSeekMainDocument;

ну и т.д.

//вывод на печать

   W1.ActiveDocument.PrintOut(EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,Empty Param,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

---

← →
YurikGL ©   (2004-09-08 21:02) [8]

Забыл...

vr1:TOleVariant

---

← →
YurikGL ©   (2004-09-08 21:02) [9]

Тьфу

vr1:OleVariant

---

← →
V l a d i m i r   (2004-09-08 21:10) [10]

> YurikGL ©


Большое, огромное спасибо!!!

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.038 c