Задать вопрос эксперту

 

Работа с таблицами в документе MSWORD через Delphi.

 

Некоторые малоиспользуемые функции по работе с таблицами в документе 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; // Вставка вложенной таблицы