Оператор SymbolFont
Форматирует выделенный текст шрифтом
Symbol или помещает в точку вставки заданную его аргументом строку текста, отформатированную этим шрифтом. Если нет выделенной области и не задан аргумент, то никаких действий не производится. Честно говоря, я не знаю зачем в язык введён этот оператор, так как практического применения ему пока не нашёл.
Синтаксис:
SymbolFont [Вставляемый_в_документ_текст]
Пример.
Чтобы посмотреть, как работает эта макрокоманда выделите строку текста и выполните макрокоманду, затем переместите куда-нибудь точку вставки и снова запустите макрос.
Sub MAIN
SymbolFont "Тестовая строка."
End Sub
С этим шрифтом связан более осмысленный оператор, который называется InsertSymbol. Он позволяет вставить в текст по месту IP отдельный специальный символ из набора декоративных шрифтов (например, стрелку специального вида и т.п.):
Синтаксис:
InsertSymbol .Font = "имя_шрифта", .Tab = число, CharNum = "код_символа"
где:
имя_шрифта – название гарнитуры (см. пример), содержащей вставляемый символ. Названия шрифтов можно посмотреть в диалоговом окне Символ, если выбрать в меню Вставка пункт Символ;
число – задаёт вид табуляции для некоторого специального случая (см. Справку);
код_символа – номер символа в таблице символов данного шрифта, считая слева направо, плюс 31 (из-за того что в этой таблице не показаны непечатаемые символы). Обратите внимание, что число символов в строке таблицы равно 28, а не 32, как принято у программистов при построении таких таблиц. Почему так через голову сделано, догадаться невозможно. Логика ребят из Microsoft иногда совершенно убойная.
Пример.
InsertSymbol .Font = "Symbol", .CharNum = "96"
Скрытый текст
Оператор Hidden и функция Hidden() позволяют работать со скрытым текстом.
Синтаксис:
Hidden [Argument]
|
Аргумент |
Пояснение |
|
1 |
Включить форматирование “скрытый текст” |
|
0 |
Удалить форматирование “скрытый текст” |
|
Опущен |
Переключает форматирование на противоположное |
Пример.
Сделать скрытым выделенный фрагмент текста:
Sub MAIN
Insert "Тестовая строка"
StartOfLine 1
Hidden 1
End Sub
