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

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

WordApplication [D5, D6, Win95/98]


Марина ©   (2002-02-04 13:51:00) 

Есть Word-овская таблица,созданная с помощью WordApplication.Подскажите, пожалуйста, как программно вставить значения в ячейки этой таблицы? Заранее спасибо.


skiph   (2002-02-05 06:14:00) [1]

Не везде такой код пройдет. Другой способ - поставить курсор в нужное место (процедуры MoveLeft, MoveRigth, MoveDown, MoveUp) и вставить текст (TypeText). Способ кривоватый, но работает везде.


fag2000@ok.ru   (2002-02-04 14:27:00) [2]

Через Cell.
Пример есть в помоши по VBA в Word.


drpass   (2002-02-04 14:26:00) [3]

Вот такой код создает по шаблону документ (шаблон с таблицей) и заносит значения в пару ячеек
app:=CreateOleObject("Word.Application");
app.Visible:=true;
doc:=app.Documents.Add(Params.Template);
doc.Tables.Item(1).Cell(2,1).Select;
Sel:=app.Selection;
Sel.TypeText(MaskEdit1.Text);
Sel.MoveRight(wdCell, 1);
Sel.TypeText(Params.RegCod);


Наверх

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