Макрокоманды на языке WordBasic

Для создания макрокоманды на языке WordBasic выполняется команда СЕРВИС, Макрокоманда, в диалоговом окне "Макрокоманда" (см. рис.19.14) указываются имя макрокоманды, сфера ее действия и краткое описание, затем нажимается кнопка <Создать>, после этого открывается новое окно для записи текста макрокоманды на языке WordBasic. На экран выводится панель инструментов Макро.

Рис.19.16.Панель инструментов Макро

Используются следующие кнопки (слева направо):

<Список активных макрокоманд> - позволяет просматривать и переходить к активной макрокоманде;

<3апись> - запись новой макрокоманды;

<3аписать следующую команду> - продолжить запись макрокоманды, начиная с позиции, на которой установлен курсор;

<Старт> - выполнить активную макрокоманду;

<Трасса> - пошагово выполнить активную макрокоманду;

<Продолжить> - продолжить выполнение остановленной макрокоманды;

<Стоп> - завершить выполнение макрокоманды;

<Шаг внутрь> - выполнить активную макрокоманду, останавливаясь перед каждой инструкцией и подсвечивая ее;

<Шаг через> - выполнить активную макрокоманду, останавливаясь перед каждой следующей инструкцией в основном теле макрокоманды и подсвечивая ее. Выполнение подпрограмм не прерывается;

<Показать переменные> - вывод на экран диалога "Переменные макрокоманды", с помощью которого можно просмотреть и изменить значения всех переменных остановленной макрокоманды;

<Добавить или удалить REM> - вставить или удалить инструкцию REM в выделенных строках окна редактирования макрокоманд;

<Макро> - работу с макрокомандами, в том числе создание новых макрокоманд, выполнение существующих и т.д;

<Редактор диалогов> - запуск или переключение в режим Редактора диалогов.

Более подробно о программировании см. подразд. 19.2 и сведения о макропрограммах Excel 5.0.

Пример 19.4. Текст программы для макрокоманды А1:

Sub MAINFormatFont .Points = "12", .Underline = 0, .Color = 0, .Strikethrough = 0,.Superscript = 0,.Subscript = 0, .Hidden = 0, .SmallCaps = 0, .AllCaps = 0, .Spacing = "0 пт",.Position = "0 пт", .Kerning = 0, .KerningMin="", .Tab ="0",═.Font ="Arial Cyr",.Bold= 1, .ltalic=0.FormatParagraph .LeftIndent = "0 см", .RightIndent = "0 см", .Before = "0 пт", .After = "0 пт", .LineSpacingRule = 0, .LineSpacing = "", .Alignment = 3, .WidowControl = 1, .KeepWithNext = 0, .KeepTogether = 0, .PageBreak = 0, .NoLineNum = 0, .DontHyphen = 0, .ТаЬ= "0", .FirstIndent = "1"FormatTabs .Position = "5 см", .DefTabs="1,25 см", .Align=0, .Leader = 0, .Set FormatTabs .Position ="12 см", .DefTabs="1,25 см", .Align=0, .Leader=0, .Set End Sub

Для просмотра текста макрокоманды выполняется команда СЕРВИС, Макрокоманда, курсор устанавливается на имени макрокоманды, нажимается кнопка <Правка>.

Клавишные и языковые макрокоманды сохраняются в определенном шаблоне документов. С помощью команды ФАЙЛ, Шаблоны или СЕРВИС, Макрокоманда вызывается диалоговое окно ╚Организатор╩, которое обеспечивает копирование, переименование и удаление макрокоманд на уровне шаблонов документов.