Операторы Bold, Italic, Underline и Strikethrough
Italic [On] курсив
Bold [On] полужирный
Underline [On] подчеркивание текста
Strikethrough [On] перечёркивание текста
Перечисленные операторы доступны также и в виде соответствующих функций.
Bold Bold()
Underline Underline()
Strikethrough Strikethrough()
Italic Italic()
Пример.
Проверить, отформатирована ли выделенная область полужирным шрифтом, и если нет. то она форматировать её. Поместив вместо оператора bold, любую из приведенных выше пар оператор – функция, вы получите макрокоманду, демонстрирующую их работу.
Sub MAIN
A = Bold()
If A < 1 Then
MsgBox "Выделить полужирным."
Bold
Else
MsgBox "Текст отформатирован полужирным."
End If
End Sub
WordUnderline [On] – подчёркивание слов (пробелы между ними не подчёркиваются).
DoubleUnderline [On] – двойное подчеркивание текста.
DottedUnderline [On] – подчеркивание текста пунктирной линией.
Этим операторам соответствуют функции Italic(), Bold(), Underline(), WordUnderline(), DoubleUnderline() и DottedUnderline().
Гораздо более интересны операторы и функции, позволяющие менять сам шрифт и его атрибуты (размер, цвет, кернинг и т. д.):
Оператор Font$ имя$
[, размер] – применяет заданный шрифт указанного размера к выделенному тексту.
FontSizeSelect – если панель Форматирование присутствует на экране, то указатель перемещается в окошко с размерами шрифтов. Если этой панели на экране нет, то появляется диалоговое окно Шрифт, в котором маркер устанавливается на окно размера шрифта.
Функция FontSize()
– возвращает размер шрифта выделенного текста.
Пример.
Эта макрокоманда возвращает размер шрифта для выделенного участка и позволяет пользователю изменить этот размер.
Sub MAIN
fs = FontSize()
MsgBox “Шрифт ” + Str$(fs) + “пунктов”
FontSizeSelect
End Sub
Функция Font$() – возвращает имя шрифта выделенного текста. Если этот текст оформлен несколькими шрифтами, то возвращается пустая строка.
Font$(номер-шрифта) – возвращает имя шрифта, номер которого в списке шрифтов, доступных для выбранного, принтера равен номеру-шрифта. Число таких шрифтов можно получить с помощью функции CountFonts(). Следующий макрос возвращает полный список шрифтов.
Sub MAIN
For i=1 To CountFonts()
Insert Font$(i)
InsertPara
End SUB
GrowFont – увеличивает размер шрифта выделенного текста до следующего размера, поддерживаемого выбранным принтером. Если в выделенном тексте используются шрифты разного размера, то каждый из них увеличивается до следующего доступного размера. Если выделенного текста нет, то новый размер шрифта будет применяться к добавляемому тексту. ShrinkFont – симметричный к GrowFont оператор, аналогичным образом уменьшающий размер шрифта.
Операторы GrowFontOnePoint и ShrinkFontOnePoint позволяют соответственно увеличивать и уменьшать размер шрифта выделенного текста на один пункт. Однако в отличие от GrowFont и ShrinkFont они делают это независимо от того, поддерживается ли новый размер шрифта выбранным устройством печати или нет.
