Некоторые малоиспользуемые функции по работе с таблицами в документе WORD

Выделение таблицы под номером 1:

WordApplication1.ActiveDocument.Tables.Item(1).Select;

Выделение ячейки (строка 1 колонка 2) таблицы под номером 1:

WordApplication1.ActiveDocument.Tables.Item(1).Cell(1, 2).Select;

Выделение вложенной таблицы № 1 в таблице под номером 1:

WordApplication1.ActiveDocument.Tables.Item(1).Tables.Item(1).Select;

Выделение ячейки (строка 1 колонка 2) во вложенной таблицу № 1 в таблице под номером 1:

WordApplication1.ActiveDocument.Tables.Item(1).Tables.Item(1).Cell(1, 2).Select;

Переход в конец набора текста в выделенной таблице

Var

Unit_, count_, Extend_: OleVariant;

…

Unit_ := wdLine;

Extend_ := wdMove;

WordApplication1.Selection.EndKey(Unit_, Extend_);

WordApplication1.Selection.Font.Size := 4;  // установка размера шрифта

WordApplication1.Selection.TypeParagraph;  // следующий параграф

Запись текста в выделенную ячейку:

WordApplication1.Selection.TypeText('Текст сообщения');

Вставка картинки в выделенную ячейку:

WordApplication1.Selection.InlineShapes.AddPicture('C:\1.jpg', EmptyParam, EmptyParam, EmptyParam);

WordApplication1.Selection.Collapse(EmptyParam);

Вставка следующей вложенной таблицы в выделенную таблицу:

Var

Unit_, count_, Extend_: OleVariant;

….

Unit_ := wdLine;

Extend_ := wdMove;

WordApplication1.Selection.EndKey(Unit_, Extend_); // Переход в конец набора текста

WordApplication1.Selection.Font.Size := 4;

WordApplication1.Selection.TypeParagraph;

WordApplication1.Selection.PasteAsNestedTable; // Вставка вложенной таблицы