![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Создать документ Word [D6, WinXP]
V l a d i m i r © (2004-09-08 16:10:00)Здравствуйте! Вот такой, возможно, простой вопрос: требуется при нажатии на кнопку создать документ Word, сделать его видимым, чтобы пользователь мог занести любую информацию и сохранить этот документ...
V l a d i m i r (2004-09-08 21:10:00) [1]
> YurikGL ©
Большое, огромное спасибо!!!
YurikGL (2004-09-08 21:02:00) [2]Забыл...
vr1:TOleVariant
YurikGL (2004-09-08 21:02:00) [3]Тьфу
vr1:OleVariant
YurikGL (2004-09-08 21:00:00) [4]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);
Чайник (2004-09-08 18:52:00) [5]так с этого и надо было начинать, а то открыть ворд и все... это уже OLE..
V l a d i m i r (2004-09-08 18:48:00) [6]У меня информация в БД хранится и нужно создать небольшой отчет... Как таблицы добавлять и форматировать ячейки я нашел информацию, а как открыть и сделать видимым - не знаю. Стандартным QReport'ом сделать можно, но он не надежный - вот поэтому нужен ворд.
Чайник (2004-09-08 18:41:00) [7]а зачем тебе все это?.. те ведь надо прост запустить ворд, а не общаться с ним...
V l a d i m i r (2004-09-08 18:25:00) [8]А как это можно сделать, используя WordApplication и WordDocument?
BillyJeans (2004-09-08 17:07:00) [9]CreateOleObject('Word.Application');
Чайник (2004-09-08 17:04:00) [10]shellexecute