Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Экспорт таблицы в Word, Отображение границ таблицы 
:(
    Опции темы
GAZ
Дата 23.1.2006, 14:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 20.1.2006

Репутация: нет
Всего: нет
Господа программисты, вопрос такой:
Необходимо выводить данные в таблицу в word-овский файл.
Делаю примерно так:
Код

//Создаем объект wordapplication
WordApp := CreateOleObject('Word.Application');
WordApp.Visible := true;
//Создаем документ
NewDoc := WordApp.Documents.Add('word.doc', False, 0);
//Число столбцов и строк
iCols := StringGrid1.ColCount;
iRows := StringGrid1.RowCount;
//Добавляем таблицу
WordTable := NewDoc.Tables.Add(WordApp.Selection.Range, iCols, iRows);
//Заполняем таблицу данными из stringgrid
for iGridRows := 1 to iRows do
  for jGridCols := 1 to iCols do
    WordTable.Cell(iGridRows, jGridCols).Range.Text :=StringGrid1.Cells[jGridCols - 1, iGridRows - 1];
//Сохраняем
WordApp.ActiveDocument.SaveAs('word.doc');
//Выходим
WordApp.Quit;
//Освобождаем
WordApp := Unassigned;
NewDoc := Unassigned;
WordTable := Unassigned;

Все работает ОК, таблица заполняется.
Но границы у таблицы отсутствуют.
Может кто подскажет как границы добавить/показать?
PM MAIL   Вверх
Albinos_x
Дата 23.1.2006, 18:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108
Код

// сетка таблицы
 WordTable.Borders.InsideLineStyle:=wdLineStyleSingle;
 WordTable.Borders.OutsideLineStyle:=wdLineStyleSingle;



--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
GAZ
Дата 23.1.2006, 19:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 20.1.2006

Репутация: нет
Всего: нет
Albinos_x Большое спасибо!
PM MAIL   Вверх
GAZ
Дата 24.1.2006, 09:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 20.1.2006

Репутация: нет
Всего: нет
Albinos_x
Все было бы хорошо, если бы не было так плохо:
Пишу:
Код

WordTable.Borders.InsideLineStyle:=wdLineStyleSingle;    
WordTable.Borders.OutsideLineStyle:=wdLineStyleSingle;

Выдает: "Error: undeclared identifier".
Где эти константы описаны?
PM MAIL   Вверх
Albinos_x
Дата 24.1.2006, 17:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108
точно должны быть в WordXP, в остальных не пробовал...


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
bas
Дата 24.1.2006, 18:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 446
Регистрация: 14.8.2002
Где: Молдова, Кишинев

Репутация: нет
Всего: 2
Цитата(GAZ @ 24.1.2006, 09:06 Найти цитируемый пост)

Где эти константы описаны?

на BCB in word_2k.h
можно написать
Код

WordTable.Borders.InsideLineStyle:=1; 
PM MAIL   Вверх
YurikGL
Дата 24.1.2006, 21:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 196
Регистрация: 5.7.2005
Где: Уфа

Репутация: 2
Всего: 2
Цитата

Выдает: "Error: undeclared identifier".
Где эти константы описаны?

Вместо констант можно использовать числовые значения.

Чтобы получить значение констант VisualBasic, которые Дельфи вообще говоря не понимает, надо внутри макроса написать MsgBox(нужная_константа). Тогда он покажет ее численное значение, их-то в Дельфи и использовать.
--------------------
 
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Delphi
  • Вопросы по SQL и вопросы по базам данных, не связанные с Delphi, задавать здесь

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0469 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.