Для того чтобы изменять направление текста, используйте свойство
Orientation объекта Range, если этот объект связан с областью ячейки или
областью выбранных ячеек. Алгоритм построения приложения в данном
случае выглядит так: сначала определяем ссылку на объект Range выбран-
ной ячейки для заданной таблицы, затем изменяем свойство самого объекта
Range.
Изменение направления текста в ячейке таблицы документа Word
procedure TForml.Button3Click(Sender: TObject);
begin
Range:=W.ActiveDocument.Tables.Item(l).Cell(1,1).Range;
Range.Text:='Как в выбранной ячейке таблицы документа Word писать J
снизу вверх?';
end;
procedure TForml.TextOrientationChange(Sender: TObject);
begin
case TextOrientation.Itemlndex of
0:Range.Orientation:=wdTextOrientationHorizontal;
1:Range.Orientation:=wdTextOrientationUpward;
2:Range.Orientation:=wdTextOrientationDownward;
end;
end;
Выполняя данные процедуры, получим результат, представленный на
рис. 2.7.
Рис. П2.7. Изменяем направление текста в ячейке таблицы
|
Главная
Каталог файлов
