Запись в таблицу через сервер Word

← →
TruthMan (2005-10-18 10:38) [0]

Помогите, пожалуйста, заполнить таблицу. Никак не могу найти свойство, позволяющее обратиться к конкретной ячейке. Таблица без проблем создается при помощи команды WordDocument1.Tables.Add(WordApplication1.Selection.Range, Number, 2, EmptyParam, EmptyParam);
А вот как быть дальше не знаю.

← →
evvcom © (2005-10-18 11:03) [1]

А ты макрос запиши, а потом текст в VB-редакторе подсмотри.

← →
TruthMan (2005-10-18 14:59) [2]

Не все удается перенести. Например неясно как выделить все таблицу и задать выравнивание для всех ячеек по центу. В VB это Selection.Tables(1).Select
Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter. А как перенести это в Delphi не знаю.

← →
umbra © (2005-10-18 16:54) [3]

> А как перенести это в Delphi не знаю.

uses Word97; //чтобы делфи понимал имена констант, если ворд другой - другой // модуль прописать. Они все в папке делфи ocx\servers\ var table: variant; {........................................} table := WordDocument1.Tables.Add(WordApplication1.Selection.Range, Number, 2, EmptyParam, EmptyParam); table.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter; {...................................................} table := Unassigned;

← →
TruthMan (2005-10-18 17:16) [4]

C этим разобрался, но возник другой вопрос. Как выделить следующую ячейку? Пишу WordApplication1.Selection.MoveRight(wdCell, 1, ?). Что это за параметр Extend, который надо третьим указать?

← →
umbra © (2005-10-18 17:54) [5]

> Что это за параметр Extend, который надо третьим указать?

Extend Optional Variant. Can be either wdMove or wdExtend. If wdMove is used, the selection is collapsed to the end point and moved to the right. If wdExtend is used, the selection is extended to the right. The default value is wdMove.

Все это написано в справке по ворду, раздел "Cправка по Visual Basic"

Вообще-то с таблицами лучш всего работать через ConvertToTable

← →
TruthMan (2005-10-19 11:25) [7]

Спасибо, но пробовал ставить и wdMove и wdExtend. Выдает ошибку Types of actual and formal var parameters must be identical. Используемая команда WordApplication1.Selection.MoveRight(wdCell, 1, wdMove);

← →
TruthMan (2005-10-20 09:38) [8]

Вот как надо было:
var un_Var, ex_Var, count : OleVariant ............................................... WordApplication1.Selection.MoveRight(un_Var, count, ex_Var);
Так что билет мне до Бобруйска, в один конец :))

Запись в таблицу через сервер Word Найти похожие ветки