При создании нового документа или редактировании созданного и сохра-
ненного ранее часто приходится изменять разные фрагменты документа.
Можно задавать фрагментам текста такой вид, который выделит их и при-
даст им отличия по смыслу и назначению, для этого потребуется изменять
различные параметры шрифта и фона. Для упрощения этой процедуры
можно применять стили, имеющиеся в приложении Word или созданные
пользователем. Новый стиль можно создать и программно из внешних при-
ложений. Коллекция Styles объекта Document позволяет создать новый
стиль или изменить созданный ранее. Новый стиль создается с помощью
метода Add коллекции Styles, возвращающего ссылку на созданный стиль
(элемент коллекции). Метод Item(i) обеспечивает доступ к созданному ранее
стилю (параметром этого метода может быть как индекс, так и название
стиля).
Следующие процедуры — пример работы с текстовыми стилями. Первая
создает новый стиль с названием 'Новый стиль текста', шрифтом Arial (раз-
мер 36) и текстурной заливкой абзаца 10% серого цвета. Вторая процедура
изменяет имя шрифта, его размер и текстуру абзаца.
Создание нового стиля и настройка его свойств
procedure TForml.Button2Click(Sender: TObject);
begin
MyStyles:=W.ActiveDocument.Styles.Add('Новый стиль текста');
MyStyles.Font.Name:='Arial';
MyStyles.Font.Size:=36;
MyStyles.Shading.Texture:=wdTexturelOPercent;
end;
procedure TForml.Button4Click(Sender: TObject);
begin
MyStyles:=W.ActiveDocument.Styles.Item('Новый стиль текста');
MyStyles.Font.Name:='Tahoma';
MyStyles.Font.Size:=26;
MyStyles.Shading.Texture:=wdTexture20Percent;
end;
Результат выполнения процедур представлен на рис. П2.10.
Рис. П2.10. Создаем новый стиль для использования в документе Word
|
Главная
Каталог файлов
