Создать документ 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);

Забыл...

vr1:TOleVariant

Тьфу

vr1:OleVariant

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

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