![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Генерирование отчетов в Word
Maloy © (2002-05-21 08:39:00)Народ! Даешь доку по генерированию MSWord-доков!
Дайте адреса, плз.
Только не отсылайте пожалуйста к Help WsWord.
Дайте конкретные ссылки с примерами...
AFROLOV (2002-05-22 10:37:00) [1]
> А если Word не установлен, тогда как быть ?
Делаешь отчет в формате RTF, например в richrdit.
kserg@ukr.net (2002-05-22 10:35:00) [2]Увидел интересуемую тему - поэтому хочу тоже задать вопрос.
У меня есть созданный для Word стандратный бланк конструкторской спецификации.
кто не знает - это формат А4 с обрамлением и рамкой в котр.
как помещается некотр.инфо (лист, всего листов и т.п.)
Внутри самого бланка - сетка с набором полей, котр. собственно и надо заполнить.
Я не могу понять как вывести инфо в такой док-т, чтобы обрамление не "расползалось".
Спасибо.
deleon (2002-05-22 09:09:00) [3]>А если Word не установлен, тогда как быть ?
Прикомпилить к проекту инсталляшку офиса и если word не установлен, запускать инсталляцию :)))
Dennn_is (2002-05-22 07:55:00) [4]Для начала проверить установлен ли Word
NLO (2002-05-22 06:41:00) [5]А если Word не установлен, тогда как быть ?
Dennn_is (2002-05-21 17:18:00) [6]есть пример, нада - вышлю
HellTrooper (2002-05-21 15:10:00) [7]Есть 2 пути либо используешь Servers(D5,D6) либо регистришь OCX и работаешь через OLE (по факту тоже самое но ниже уровень)
Вот пример на D4 из моей проги отчета:
uses ..,WordConst,Word_TLB,comobj,..
var
wordapp,Range,V,C :Variant;
begin
wordapp:=CreateOleObject("word.application");//открываем ворд
wordApp.DisplayAlerts:=false;//отключаем предупреждение
WordApp.Documents.add;//добавляем документ
WordApp.visible:=true;//Теперь его видно
Range:=WordApp.Documents.item(1).Range;//получаем начало документа
V:=WordApp.Documents.item(1);//Сам документ
V.PageSetup.orientation:=wdOrientLandscape;//делаем альбомный лист
Range:=V.Range(V.range.end-1);//Вычисляем конец предыдущего текста(1)
Range.text:="Отчёт по чертежам "; //выводим строку
Range:=V.Range(V.range.end-1); //(1)
Rng:=V.tables.add(range,2,6);//делаем таблицу
C:=V.tables.Item(1);//Получаем таблицу
C.Cell(1,1).range.text:="Отдел";//пихаем инфу
C.Cell(1,2).range.text:="Количество";
C.Cell(1,3).range.text:="В А4";
end;
Юниты WordConst и Word_TLB получаются при регистрации соотв ocx"са
Пустовалов Дмитрий (2002-05-21 09:18:00) [8]Посмотри здесь, хотя статейка тебе, наверное, известна...
http://src.fitkursk.ru/articles/art0000039.asp