Форматирование
К выделенному или выбранному программно блоку текста можно применить все доступные в WinWord способы выравнивания, которые задаются следующими операторами:
LeftPara по левому краю
CenterPara по центру
JustifyPara равномерно
RightPara по правому краю
Каждому из этих операторов соответствует одноименная функция, возвращающая результат проверки блока текста на наличие указанного типа выравнивания (см. примеры в Справке)..
SpacePara15 SpacePara15()
SpacePara1 SpacePara1()
SpacePara2 SpacePara2()
Пример.
Сначала проверим, отцентрирована ли выделенная часть текста полностью или частично. Если нет, то отцентрировать его.
Sub MAIN
If CenterPara() = 1 Then
MsgBox “Выделенный текст уже полностью отцентрирован.”
ElseIf CenterPara() = - 1 Then
MsgBox “Текст отцентрирован частично.”
ElseIf CenterPara() = 0 Then
MsgBox “Отцентрировать.”
CenterPara
End If
End Sub
Еще один пример:
Проверим интерлиньяж в выделенном участке текста и, если он равен одному интервалу, заменим его на двойной.
Sub MAIN
A = SpacePara2()
If A < 1 Then
MsgBox "Установим двойной интервал."
SpacePara2
Else
MsgBox "Двойной интервал уже установлен."
End If
End Sub
Оператор ChangeCase [On] меняет вид текст в выделенной области из верхнего регистра в нижний и наоборот. Функция ChangeCase().
CharColor НомерЦвета, CharColor(), CharColor$
