Все существующие в документе таблицы хранятся в коллекции таблиц ITables этого документа. Для добавления к списку новой таблицы вызывайте метод:

function Add(Range : IRange; NumRows, NumColumns : cardinal) : ITable;

Метод применяется к списку таблиц и в своей минимальной нотации требует передачи трех параметров. Параметр Range указывает область, в которую будет вставлена таблица. Параметры NumRows и NumColumns отвечают соответственно за количество рядов и колонок в будущей таблице. Функция возвратит указатель на созданную таблицу.

var . . ., Doc, Range, Table : OleVariant; Range:=Doc.Paragraphs.Item(Doc.Paragraphs.Count).Range; Table:=Doc.Tables.Add(Range,3,4);

Приведенный пример демонстрирует способ создания в документе Doc таблицы размерностью 3 на 4 ячейки. Таблица добавляется в самый конец документа.

С каждой вновь добавленной таблицей значение свойства Counts списка таблиц ITables получает приращение:

property Counts : integer; //количество таблиц в коллекции ITables

Для того чтобы обратиться к какой-либо таблице из списка, воспользуйтесь методом:

function Item(Index : integer) : ITable;

Например:

Table:=Doc.Tables.Item(5); // 5-я таблица

У списка таблиц не так много методов и свойств. Но у самой таблицы ITable их хоть отбавляй. За внешний вид таблицы в первую очередь отвечает свойство «Автоформат»:

property AutoFormatType : Integer; //только для чтения

Чтобы посмотреть, что это такое, запустите Word и выберите пункт меню Таблица -— Вставить -— Таблица. В окне Вставка таблицы нажмите кнопку Автоформат. В новом окне мы получим впечатляющий список стилей таблиц (простая таблица, сетка таблицы и т. д.). Для того чтобы изменить формат таблицы, обратитесь к методу:

procedure AutoFormat(FormatIndex : Integer);

Для демонстрации работы процедуры AutoFormat() предложена небольшая программа, формирующая несколько таблиц различного формата:

var i:integer;

Word, Doc, Paragraph : Variant;

begin

Word:=CreateOleObject('Word.Application'); Doc:=Word.Documents.ADD;

for i:=0 to 42 do

begin

Paragraph:=Doc.Paragraphs.Add;

Paragraph. Range.InsertBefore(IntToStr(i));

Paragraph:=Doc.Paragraphs.Add;

Doc.Tables.Add(Paragraph. Range,4,4); Doc.Tables.Item(i+1).AutoFormat(i); end;

Word.Visible:=true; Word:=UnAssigned; end;

Значение, передаваемое в параметр FormatIndex, должно находиться в диапазоне значений от 0 до 42. Несколько значений констант формата таблицы приведены в табл. 25.12.

Таблица состоит из рядов и колонок. Список этих объектов мы обнаружим в соответствующих коллекциях:

property Rows : IRows; //интерфейс коллекции рядов

property Columns : IColumns; //интерфейс коллекции колонок

Названные коллекции в свою очередь обладают методами, обеспечивающими доступ к своим элементам - рядам и колонкам:

function Item(RowIndex : Integer) : IRow; //интерфейс ряда

function Item(ColumnIndex : Integer) : IColumn; //интерфейс колонки