Я пробовал задать Alignment для таблицы разными способами:
1. W.ActiveDocument.Tables.Item(Table).Select;
sel_:=W.selection;
sel .Range.ParagraphFormat.Alignment := align;
2. W.ActiveDocument.Tables.Item(Table).Range.ParagraphFormat.
Alignment;
Но почему-то получается задать Alignment для ячеек, а не для самой таблицы.
Если выделить таблицу и изменить свойство Alignment объекта Selection, то
изменится положение содержимого ячеек. Также если выделить не всю таб-
лицу, а несколько ее ячеек, и изменить свойство Alignment объекта
Selection, то будет изменено выравнивание содержимого выделенных ячеек.
Изменить выравнивание самой таблицы можно с помощью свойства
Alignment коллекции Rows выбранной таблицы. Когда требуется изменить
выравнивание только выбранной строки, нужно изменить значение свойст-
ва Alignment для этой строки. С помощью оператора
W.ActiveDocument.Tables(Table).Rows.Alignment:=align;
мы добиваемся изменения положения таблицы с помощью выравнивания
по горизонтали.
Изменение выравнивания таблицы и первой строки таблицы
procedure TForml.alignChange(Sender: TObject);
begin
W.ActiveDocument.Tables.Item(1).Rows.Alignment:=align.Itemlndex;
end;
procedure TForml.alignrChange(Sender: TObject);
begin
W.ActiveDocument.Tables.Item(l).Rows.Item(l).Alignment:=alignr.Itemlndex;
end;
Результат использования представленных процедур показан на рис. П2.5.
Первая строка таблицы выровнена по центру, оставшаяся часть таблицы —
по правому краю.
Рис. П2.5. Изменение выравнивания таблицы и ее первой строки |