Макропрограммирование в приложениях Microsoft Office. Создание макросов в Word

Последующий запуск макроса вызывает повторение (воспроизведение) команд.

Задание 1. В приложениях Word, Excel и PowerPoint установить средний уровень безопасности для макросов.

&  Если приложение настроены на высокий уровень безопасности, это не позволяет запускать макросы в документах. Поэтому для получения такой возможности нужно изменить уровень безопасности.

Это потребуется сделать только один раз в начале работы. Впоследствии при открытии документа, содержащего макросы, будет выдаваться сообщение, показанное на рис. 9.1, где необходимо нажать [Не отключать макросы].

Рис. 9.1 Окно Предупреждение системы безопасности

Рекомендации по выполнению

· Откройте текстовый процессор Word.

· Выполните команду Сервис/Макрос/Безопасность, на вкладке Уровень безопасности установите переключатель Средняя. Нажмите [OK] и закройте Word.

· Аналогичные действия выполните в приложениях Excel и PowerPoint.

Задание 2. В          папке        Программирование        создать                             документ

Макросы_Word. В документе создать макрос ЗаданиеW1, который нумерует страницы текущего документа; добавляет в верхний колонтитул аббревиатуру вуза, в нижний – фамилию; задает для всего текста набор параметров форматирования. Макрос сделать доступным для всех документов.

& Полный процесс записи макроса состоит из трех шагов: 1) активизировать запись макроса; 2) выполнить действия, назначаемые макросу; 3) остановить запись макроса.

Рекомендации по выполнению

· В личной папке создайте папку Программирование для размещения в ней файлов по изучаемой теме.

· В текстовом процессоре Word создайте документ Макросы_Word, сохранив его в папке Программирование.

· Скопируйте в документ Макросы_Word любой текст из ранее созданных файлов.

· Для активизации записи макроса выполните команду Сервис/Макрос/ Начать запись и в окне Запись макроса задайте параметры макроса:

-  в поле Имя макроса введите ЗаданиеW1;

Примечание. Имя макроса не должно начинаться с цифры, не должно содержать пробелов и символов пунктуации.

-  в раскрывающемся списке Макрос доступен для выберите Всех документов (Normal.dot), чтобы макрос был доступен для всех создаваемых и открываемых документов;

-  в поле Описание введите комментарий к макросу – свою фамилию; - нажмите [ОК], чтобы начать запись. На экране появится панель инструментов Остановить запись (рис. 9.2). Непосредственно с этого момента начнется запись всех действий, выполненных пользователем. О процедуре записи макроса, свидетельствует добавленное к курсору мыши изображение магнитофонной кассеты.

Рис. 9.2 Панель инструментов Остановить запись

· Выполните действия, назначаемые макросу:

-  установите нумерацию страниц документа командой Вставка/ Номера страниц;

-  установите колонтитулы командой Вид/Колонтитулы – в верхнем колонтитуле введите – БГЭУ,  в нижнем – свою фамилию;

-  отформатируйте текст. Для этого выделите весь текст командой Правка/Выделить все и задайте параметры форматирования, например – шрифт – Arial, размер шрифта – 14 пт, цвет шрифта – красный, выравнивание По ширине;

Примечание! Нельзя выделять текст мышью!

· Остановите запись макроса нажатием кнопки  [Остановить запись] панели инструментов Остановить запись (или командой Сервис/Макрос/ Остановить запись). Этот шаг необходим для прекращения процесса протоколирования записи макроса, иначе запись действий будет продолжаться бесконечно.

· Проверьте работу макроса. Для этого создайте новый документ и вставьте любой фрагмент текста объемом не менее 2 страниц, скопировав его, например, с сайта университета и запустите макрос командой Сервис/Макрос/Макросы. В окне Макрос в списке выделите макрос ЗаданиеW1 и нажмите [Выполнить].

· Просмотрите результат и закройте новый документ без сохранения.

Задание 3. Отредактируйте созданный макрос ЗаданиеW1, изменив параметры форматирования текста в макросе.

· Просмотрите сгенерированный на языке VBA программный код макроса ЗаданиеW1. Для этого выполните команду Сервис/Макрос/Макросы, в окне Макрос