Создание простейших макросов

Упражнение1. Создание макроса “Удалить_до_конца_строки”.

1. Создание макроса. Создайте новый документ. Наберите строку следующих символов: 1234567890. Поместите курсор в начало строки. В строке состояния дважды щелкните индикатор ЗАП, чтобы открыть диалоговое окно «Запись макрокоманды». В этом диалоговом окне присвойте макросу имя: «Удалить_до_конца_строки» (в названии макросов не могут стоять пробелы). В поле «Описание» введите описание макроса, например:Удаляет текст до конца строки. Нажмите кнопку ОК. На экране развернется окно Запись макроса. Нажмите клавиши <Shift+End> –выделится текст от позиции курсора до конца строки. Нажмите клавишу <Del> – выделенный текст удалится. Щелкните кнопку Остановить запись.

2. Запуск макроса на выполнение. Откройте предварительно созданный вами документ Word. Установите курсор в начале первого лишнего слова и выполните команду Сервис/Макрос/Макросы. В диалоговом окне, которое открылось, активизируйте макрос “Удалить_до_конца_строки” и щелкните на кнопкеВыполнить. Текст удалится.

3. Подключение макроса к панели инструментов. Выведите на экран панель инструментов, на которую Вы собираетесь добавить кнопку для макроса, например: Visual Basic(Вид/Панели инструментов/VisualBasic). Выполните команду меню Сервис/Настройка. В диалоговом окне щелкните на вкладке «Команды». Из списка «Категории» выберите категорию «Макросы». В списке появятся все созданные макросы. Выделите макрос – «Удалить_до_конца_строки» и переместите мышкой на панель VisualBasic. На панели появится новая кнопка. Щелкните на кнопке Изменить выделенный объект и в списке выберите опцию «Основной стиль». Кнопка примет стандартный вид. Щелкните на кнопке Изменить выделенный объект и в списке выберите опцию «Выбрать значок для кнопки». В списке, который появился, щелкните, например, на кнопке с изображением телефона. Закройте диалоговое окно. На панели инструментов появится кнопка с изображением телефона. Установите курсор в начале ненужной строки текста и нажмите кнопку, закрепленную за макросом (телефон). Текст удалится.

4. Закрепление макроса за комбинацией клавиш. Выполните команду Сервис/Настройка. В появившемся диалоговом окне щелкните на кнопке Клавиатура. В списке «Категории» выберите категорию «Макросы». Выделите макрос – “Удалить_до_конца_строки”. Перейдите в поле «Новое соединение клавиш» и нажмите клавиши <Ctrl>+<Shift>+<E>, щелкните по кнопке Назначить. Закройте диалоговое окно. Комбинация клавиш закрепляется за созданным макросом. Установите курсор в последней строке текста и нажмите соединения клавиш <Ctrl>+<Shift>+<E>. Текст до конца строки удалится.

Упражнение2. Создание макроса – Темно_красный_цвет.

Наберите строку следующих символов: 1234567890. Поместите курсор в начало строки. В строке состояния дважды щелкните индикатор ЗАП, чтобы открыть диалоговое окно «Запись макрокоманды». В этом диалоговом окне присвойте макросу имя: «Темно_красный_цвет». В поле «Описание» введите – Окрашивает текст в темно-красный цвет. Нажмите кнопку ОК. Выполните команду Формат/Шрифт. Выберите из списка «Цвет» элемент Темно-красный, нажмите кнопку ОК. На панели инструментов Запись макроса нажмите кнопку Остановитьзапись. Подключите созданный макрос к панели инструментов и закрепите за ним комбинацию клавиш.