3. В открывшемся диалоговом окне активизируйте макрос. Удалить_До_Конца_Строки и щелкните на кнопке выполнить. Текст удаляется.
Упражнение 3.Подключение макроса к панели инструментов.
1. Выведите на экран панель инструментов, на которую вы собираетесь добавить кнопку для макроса, например Visual Basic (Вид/Панели инструментов/ Visual Basic).
2. Выполните команды меню Сервис/Настройка. В диалоговом окне щелкните на вкладке Команды. Из списка Категориивыберите категорию Макросы.В списке отразятся все созданные макросы. Выделите макрос Удалить_До_Конца_Строки и переместите мышью на панель Visual Basic. На панели появляется новая кнопка.
3. Щелкните на кнопке Изменить выделенный объект и в списке выберите Основной стиль. Кнопка примет стандартный вид.
4. Щелкните на кнопке Изменить выделенный объект и в списке выберите Выбрать значок для кнопки. В появившемся списке щелкните, например, на кнопке с изображением телефона. Закройте диалоговое окно. На панели инструментов остается кнопка с изображением телефона.
5. Установите курсор в начале строки текста и нажмите кнопку, закрепленную за макросом (телефон). Текст до конца строки удалится.
Упражнение 4. Закрепление макроса за комбинацией клавиш.
1. Выполните команду Сервис/Настройка.В появившемся диалоговом окне щелкните на кнопку Клавиатура. В списке Категории выберите категорию Макросы. Выделите макрос Удалить_До_Конца_Строки. Перейдите в поле Новое сочетание клавиши нажмите клавиши <Ctrl>+<Shift>+<E>, щелкните по кнопке Назначить. Закройте диалоговые окна. Комбинация клавиш закрепляется за созданным макросом.
2. С помощью сочетание клавиш <Ctrl>+<Shift>+<E> удалите последней строки.
Упражнение 5.Создание второго макроса – Красный_Цвет.
Для создания такого макроса следует выполнить следующие команды:
· выбрать из меню Формат/Шрифт;
· выбрать из списка Цвет нужный цвет;
Нажать кнопку ОК.
1. Дважды щелкните в строке состояния индикатор ЗАП. На экране появляется диалоговое окно Запись макроса.
2. В поле Имя макрокоманды введите название макроса: Красный_Цвет. В поле Описаниевведите: Окрашивает текст в красный цвет. Нажмите кнопку ОК.
3. выполните команды меню Формат/Шрифт.Выберите из списка Цвет элемента красный, нажмите кнопку ОК.
4. На панели инструментов Остановка макроса нажмите кнопку Остановить запись. На этом заканчивается операции по созданию второго макроса.
5. Подключите созданный макрос к панели инструментов.