Студопедия
rus | ua | other

Home Random lecture






A. Протоколирование действий пользователя в режиме записи макроса


Date: 2015-10-07; view: 429.


Практическая работа 32

Протоколирование последовательности действий пользователя в режиме записи макроса (запись)

Процесс записи макрокоманды рассматривается на примере создания макроса, подчеркивающего в тексте слова из латинских букв.

· Ввести текст в приложении Word, содержащий русские слова и слова, написанные латинскими буквами, затем выполнить команду: меню Сервис Макрос Начать запись,

· в выведенном диалоговом окне Запись макроса ввести имя макрокоманды (здесь макрос34), в поле Описание можно ввести краткое описание макрокоманды (Подчеркнуть слова из латинских букв), в поле Макрос доступен для: ввести - Всех документов (Обычный doc),

· далее сделать щелчок на кнопке ОК. Выводится следующее диалоговое окно, где можно определить вид старта макрокоманды:

o щелчком на соответствующей кнопке панели инструментов,

o выбором команды из меню,

o использованием комбинации клавиш.

· c использованием клавиатуры подвести курсор к слову введeнного текста, написанному латинскими буквами. С использованием клавиш Shift + a маркировать слово и с использованием соответствующей кнопки панели инструментов подчeркнуть слова,

· использовать автоматически выведенную кнопку (вверху слева на экране): Остановить запись,

· сохранить макрос: файл сохранить как Шаблон документа,

· открыть файл, содержащий слова, написанные латинским шрифтом, поставить курсор перед словом из латинских букв. Далее нужно применить макрос: меню Сервис Макрос Макросы : Выбрать макрос 34 a щелчок на кнопке Выполнить; слово текста подчeркивается.

Макрокоманда обрабатывает текст, находящийся между курсором и концом документа. Ниже приведeн текст созданного протоколированием макроса. Он создан (здесь) копированием сгенерированного в результате процедуры протоколирования макроса:

Sub Макрос34 () ' Подчеркнуть слова из латинских букв Selection.MoveRight Unit:=wdCharacter, Count:=5, Extend:=wdExtendIf Selection.Font.Underline = wdUnderlineNone ThenSelection.Font.Underline = wdUnderlineSingleElseSelection.Font.Underline = wdUnderlineNoneEnd IfEnd Sub


<== previous lecture | next lecture ==>
Создание макросов | Программирование макроса
lektsiopedia.org - 2013 год. | Page generation: 0.004 s.