Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

отчёт в MS Word (Запись в ячейки таблицы ) [D6, IB6.x]


Som ©   (2005-06-03 19:37:00) 

Для работы с MS Word использую WordApplication1

в определённую ячейку таблицы пишу следующим образом :

var W:variant;
.............
W:=CreateOleObject('Word.Application');
W.ActiveDocument.Tables.Item(Table).Columns.Item(Column).Cells.Item(Row).Range.Text:=text;

где Table-номер таблицы в документе,Column и Row столбец и строка

выдаёться ошибка : "Отсутствует доступ к отдельным столбцам, поскольку ячейки таблицы имеют разную ширину"

Для отчёта использую шаблон, где имееться таблица с обьеденёнными ячейками. Как избежать такой ошибки ?


YurikGL   (2005-06-04 09:54:00) [1]

ИМХО ставить курсор в ячейку и писать после него

что-то типа такого

WordApplication1.Selection.Start:=число;
WordApplication1.Selection.End_:=число;

w1.selection.insertafter(текст);

число подбирается методом научного тыка :)


Наверх

Титульная страница Поиск, карта сайта Написать письмо