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

[zubr]

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

 

[Barmutik]

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

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 минут

 

[zubr]

Сэнк , почти то что мне надо, дальше я сам.

 

[Barmutik]

Да не за что ! Удачи!