2014-02-04
1715
Автоматическая запись макросов
Способы создания макросов:
• программирование на языке VBA;
• использование макрорекордера.
Макрорекордер - это транслятор, создающий программу (макрос) на языке VBA, которая является результатом перевода на язык VBA действий пользователя с момента запуска макрорекордера до окончания записи макроса.
n Иногда удается создавать макросы, не написав вручную вообще ни одной строки программного кода.
n Очень часто оказывается весьма удобным сначала воспользоваться макрорекордером, а затем внести изменения и дополнения в полученный код VBA.
Создание макроса обычно состоит из трех этапов:
подготовка к записи;
• запись макроса;
• редактирование записанного макроса в редакторе VBA.
Подготовка к записи включает все предварительные действия, которые не должен выполнять макрос.
Например:
• предварительный ввод текста в MS Word;
• создание рабочего листа в MS Excel;
• создание вспомогательной таблицы и др.
Запись макроса - это самый ответственный этап. При каждом вызове макроса будут повторены все записанные действия (в том числе и лишние, если они были допущены).
После выполнения всех подготовительных действий можно приступать к записи макроса.
После выполнения команды Сервис - Макрос – Начать запись на экране появится диалоговое окно Запись макроса. В этом окне указывается имя макроса (по умолчанию макросам присваиваются имена Макрос1, Макрос2 и т.д.);
Здесь же из списка Макрос доступен для: выбирается шаблон или документ, в котором будет храниться макрос.
Возможны следующие варианты при записи макроса во время создания или редактирования документа
:
макрос может быть доступен для всех документов, которые создаются на основе шаблона Normal.dot. Тогда он хранится в этом шаблоне (у пользователя должны быть права на изменение шаблона Normal.dot);
• макрос может быть доступен только для текущего документа (в этом случае макрос хранится в документе);
при записи макроса во время создания или редактирования пользовательского шаблона
• макрос может быть доступен для всех документов, основанных на Normal.dot (см. выше);
• макрос может быть доступен только для документов, основанных на пользовательском шаблоне (макрос хранится в пользовательском шаблоне).
В поле Описание: можно ввести описание макроса.
Если макросу не требуется назначать кнопку панели инструментов, команду меню или сочетание клавиш, то после нажатия кнопки ОК диалоговое окно Запись макроса будет закрыто, а на экране появится специальная панель инструментов Остановить запись всего с двумя кнопками:
• Остановить запись - завершение записи макроса;
• Пауза - временная приостановка записи выполняемых действий.
Теперь каждое действие записывается в макрос!
Завершив выполнение записываемых действий макроса, нужно нажать на панели инструментов вышеупомянутую кнопку Остановить запись, или прекратить запись с помощью команды меню Сервис -Макрос - Остановить запись...
При необходимости назначить макросу кнопку панели инструментов или команду меню следует нажать кнопку панели и в диалоговом окне Настройка перейти на вкладку Команды.
В списке Команды нужно выбрать записываемый макрос и перетащить его на панель инструментов или в меню. Для настройки кнопки или команды меню можно воспользоваться командами из раскрывающегося списка Изменить выделенный объект.
В этом списке можно выбрать значок для кнопки панели инструментов, стиль кнопки или команды меню и др.
Чтобы назначить макросу сочетание клавиш, нужно нажать кнопку клавишам или Клавиатура. В появившемся диалоговом окне Настройка клавиатуры ввести сочетание клавиш в поле Новое сочетание клавиш и нажать кнопку Назначить. После нажатия кнопки Закрыть начинается запись макроса.
Можно просмотреть текст макроса и, если это необходимо, внести в него дополнения и изменения. Для этого нужно выполнить команду Сервис - Макрос - Макросы..., в появившемся диалоговом окне выбрать имя макроса и нажать Изменить...
Будет открыт редактор Visual Basic, в одном из окон которого вы увидите текст только что записанного макроса.
Sub ВставкаСимвола()
' ВставкаСимвола Макрос
' Макрос записан 25.11.2006 Notebook
Selection.InsertSymbol.Font:="Wingdings", CharacterNumber:=-3906, Unicode_:=True
