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

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

Таблица с помощью WordApplication

TIF ©   (2006-10-28 17:51:00) 

Как с помощью WordApplication создать таблицу? Хотя бы простенькую. А то шрифт форматировать умею, а таблицы с помощью Экселя делать приходится

---

Благодарный слушатель   (2006-10-29 12:07:00) [1]

var
 RowCount,
 ColCount: Integer;
 W1: TWordApplication;
 Vr: OleVariant;

begin
 W1 := TWordApplication.Create(Self);
 w1.Connect;
 Vr := '';
 ColCount := 3;
 RowCount := 2;
 with W1.ActiveDocument.Tables.AddOld(w1.Selection.Range, RowCount, ColCount) do
 begin
   Columns.Item(1).Width := 16;
   Columns.Item(2).Width := 32;
   Cell(1, 2).Range.Text := 'SomeText';
 end;
end;

---

TIF   (2006-10-28 17:56:00) [2]

зачем писать мне? я сам не знаю

---

Благодарный слушатель   (2006-10-28 17:52:00) [3]

Правда-правда, расскажите побольше про таблички :)

---

Наверх