Выполнения макроса

МАКРОСЫ в WORDе

Основное назначение макросов в WORDе - избавить пользователя от многократного повторения однообразных действий. Однако есть серьезный недостаток - с макросами могут распространяться вирусы. Поэтому для защиты от макровирусов, работая с WORD XP, выберите меню Сервис\Макрос\Безопасность, отметьте закладку Уровень безопасности и задайте опцию Высокая или Средняя (обычо выбирают Средняя, так как Высокая может автоматически не пропускать макросы, содержащиеся в документе, без сообщения об этом.) После этого нажмите OK.

Создать макрос можно двумя способами:

1. Записать последовательность выполняемых команд и нажатий клавиш с помощью встроенного средства записи Сервис|Макрос|Начать запись или сделать двойной щелчок мыши на надписи ЗАП в полосе состояния.
2. Выбрать команду Сервис|Макрос|Макросы|Создать и написать программу на языке программирования WordBasic

Можно скомбинировать эти два способа: сначала записать последовательность действий с помощью средства записи, а затем открыть окно редактирования макроса и отредактировать его текст на языке WordBasic, добавив новые операторы и откорректировав существующие.

Макросу могут быть присвоены кнопка на панели инструментов, пункт меню или комбинация клавиш.

Процесс записи макроса рассмотрим на примере.

Упражнение 4.

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

1. Выбрать Сервис|Макрос|Начать запись или дважды щелкнуть на надписи ЗАП в полосе состояния.
2. В появившемся диалоговом окне Запись макроса введите:

· Имя макроса (по умолчанию Word присваивает макросу имя Макрос№, где № - порядковый номер макроса). Имя макроса должно иметь длину до 80 символов, начинаться с буквы и содержать только буквы и цифры. Имя не должно содержать пробелы.

· Описание макроса в поле Описание, чтобы впоследствии легко вспомнить, для чего был создан данный макрос.

· В поле Макрос доступен для укажите, в каком шаблоне будет храниться этот макрос:

«Обычный» – тогда макрос будет доступен для всех документов.

«Специальный шаблон» - тогда макрос будет доступен только для документов, основанных на этом шаблоне.

3. После того как вы нажмете кнопку OK, на экране появится панель инструментов Запись макроса. В строке состояния активизируется надпись ЗАП, которая означает, что включено записывающее устройство.

1. Чтобы вставить рисунок выберите из меню Вставка | Объект, в открывшемся диалоговом окне, в списке Тип объекта выделите строку Точечный рисунок и OK. В результатеэтих действий запускается программа Paint. На этом действие, выполняемое макрокомандой, должно быть завершено. Чтобы остановить запись макрокоманды надо свернуть окно программы Paint и щелкнуть на кнопке Остановить запись.
2. Закончив работу над макросом, обязательно протестируйте его. Сервис|Макрос|Макросы. Из списка имен выберите нужной макрокоманды и нажмите кнопку Выполнить.

Упражнение 5.

Создайте макрокоманду, обеспечивающую стирание текста от курсора вставки до конца абзаца и назначение макросу комбинации клавиш.

1. Поместите курсор вставки в произвольную точку любого абзаца.

2. Сделайте двойной щелчок мыши на записи ЗАП в строке состояния.

3. В появившемся диалоговом окне в строке Имя макроса введите – Стирание

4. В поле Описание введите описание действия, которое будет выполнять макрос: «Стирание конца абзаца от позиции курсора вставки».

5. Щелкните по кнопке с изображением клавиатуры в области Назначить макрос. На экране отобразится диалоговое окно Настройка

6. В поле Новое сочетание клавиш, нажмите комбинацию клавиш Ctrl+Del.

7. Щелкните по кнопке Назначить

8. Щелкните по кнопке Закрыть, чтобы начать запись макроса.

На экране отобразится панель инструментов Запись макроса, и теперь с помощью клавиатуры в окне документа выполните следующие действия:

1. Выделите абзац до конца, нажав комбинацию клавиш Ctrl+Shift+↓.
2. Нажмите клавишу Del.
3. Щелкните мышью по кнопке Остановить запись на панели инструментов Запись макроса.

Теперь, чтобы стереть абзац до конца, вам нужно будет установить курсор вставки в нужную позицию и нажать Ctrl+Del.