Язык WordBasic - практический подход


Оператор 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
 



Начало  Назад  Вперед