Как создать сложную таблицу в Word

  • Автор темы zubr
  • Дата начала
Z

zubr

#1
Здравствуйте, все. Собственно сабж. Таблица в аттачменте. Вставка из шаблона готовой таблицы исключается.
З.Ы. Только не посылайте на запись макроса, уже пробовал - не получается.
 

Вложения

B

Barmutik

#2
Данный код создаёт таблицу указанную Вами .. за исключением только квадратиков в каждой клетке (структура таблицы соблюдена).

Код:
var
App: Variant;
ATable: Variant;
ACell: Variant;
begin
App := CreateOleObject('Word.Application');
App.Documents.Add;
ATable := App.ActiveDocument.Tables.Add(App.ActiveDocument.Range(0, 0), 5, 5);
ACell := ATable.Cell(1, 4);
ACell.Split(2, 1);
ACell := ATable.Cell(2, 4);
ACell.Split(1, 3);

ACell := ATable.Cell(1, 3);
ACell.Split(2, 1);
ACell := ATable.Cell(2, 3);
ACell.Split(1, 3);

App.Visible := True;
За код сильно не пинать .. написан за 5 минут :)