На этом шаге мы рассмотрим компонент TWordParagraphFormat.
Компонент TWordParagraphFormat - это специальный сервер, позволяющий работать с форматами абзацев в выделенном тексте документа. Имеет свойства, аналогичные свойствам TWordDocument.
Подключение этого сервера к соответствующему объекту удобнее осуществлять с помощью метода ConnectТо. Как аргумент метода указывается объект, с которым связывается компонент. Например, оператор:
WordFont1.ConnectTo(WordApplication1.Selection.ParagraphFormat);
Из свойств объекта TParagraphFormat и компонента TWordParagraphFormat отметим следующие свойства:
- Alignment выравнивание. Оно можнт принимать значения:
- wdAlignParagraphLeft (влево),
- wdAlignParagraphCenter (по центру),
- wdAlignParagraphRight (вправо),
- wdAlignParagraphJustify (по ширине);
- RightIndent - определяет отступ, в пикселях, параграфа относительно поля справа. Удобен для получения индивидуальных параграфов при выделении из остальной части текста, особенно когда выравнивание установлено в taRightJustify;
- LeftIndent - определяет отступ, в пикселях, параграфа относительно поля слева;
- FirstLineIndent - определяет отступ, в пикселях, первой линии параграфа относительно левого поля.
Рассмотрим небольшие примеры-коды:
- Установка абзац – интервал
// Для перемещения курсора в конец при снятии выделения. D:=wdCollapseEnd; // Вставляем текст. WordApplication1.Selection.InsertAfter('текст'+#13); // Соединяемся с сервером формата. WordParagraphFormat1.ConnectTo(WordApplication1.Selection.ParagraphFormat); // Интервал перед абзацем. WordParagraphFormat1.SpaceBefore:=40; // Интервал после абзаца. WordParagraphFormat1.LineSpacing:=40; // Снимаем выделение. WordApplication1.Selection.Collapse(D);
- Межстрочный интервал
//Устанавливается. WordParagraphFormat1.LineSpacing:=20.00; //Узнать межстрочный интервал. Label1.Caption:=FloatToStrF(WordParagraphFormat1.LineSpacing,ffNumber,5,2);
На следующем шаге мы рассмотрим пример, иллюстрирующий свойства всех четырех рассмотренных компонентов.
