Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






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






· Ввести текст в приложении 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





© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.