Отправляет email-рассылки с помощью сервиса Sendsay

Уроки VBA - создание макросов для Word, Excel, Access

Рассылка закрыта

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

  Ноябрь 2003   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
Березгов Анзор

Статистика

84 подписчиков
+5 за неделю
←   Все выпуски   →

Уроки VBA - создание макросов для Word, Excel, Access Урок1 - Макросы в Word. Общие понятия.


Информационный Канал Subscribe.Ru
www.berezgov.ru
Урок 1. Макросы в Word: общие понятия.

Предисловие

Возможность создания макросов есть во всех приложениях Microsoft Office. Я начинаю с текстового редактора Word так как он чуть проще и знаком большому числу пользователей.

Для работы необходимо следующее:

  • пакет MS Office, желательно версия XP так как все примеры будут гарантировано работать только в ней.
  • установить уровень безопасности: в пункте меню Сервис->Макрос->Безопасность выбрать Низкий.
    "Низкий" или "Средний" уровень необходим для того чтобы макросы ВОБЩЕ могли запускаться.
    Если выберете "Средний" то макросы в документе будут включаться с вашего разрешения.
    После изменения уровня безопасности - перезапустите Word.

    Начиная с версии XP - поддержка Visual Basic for Applications опциональна т.е. при установке Office ее необходимо указать.

    1.Что такое макросы?

    Определение: Макрос это последовательность команд и инструкций для данного приложения (Word, Excel, Access, Outlook и т.д.), которые сгруппированы в одну для ее автоматического выполнения.

    Чаще всего макросы используются для:

  • ускорения шаблонных, рутинных действий или форматирования
    Пример:
    Макрос вставляющий таблицу определенного размера с заданным форматом, количеством строк и столбцов.
  • для ускорения доступа к командам из диалоговых окон
    Пример:
    Макрос, присваивающий шрифт Times, размера 16, начертание полужирное (Bold) выделенному слову.
  • для автоматизации сложных задач
    Пример:
    Построитель графиков: система макросов для построения графика заданной функции.

    2.Создание и выполнение макроса

    Word - предоставляет два способа создания макросов:
  • режим "Запись макроса" (Сервис->Макрос->Начать запись)
    Этот способ наиболее простой: почти все действия выполненные пользователем будут записаны.
  • редактор Visual Basic (Сервис->Макрос->редактор Visual Basic).
    Макрос полностью пишется пользователем. Здесь необходимо понимать некоторые принципы программирования.

    Для быстрого запуска макроса его можно ассоциировать с
  • кнопкой на Панели инструментов
  • пунктом меню
  • сочетанием клавиш

    Задача 1:
    Создать макрос устанвливающий следующие параметры шрифта для выделенного участка текста:
    Шрифт - Times, Начертание - полужирное, Размер - 16.

    Решение:
    1-й способ
    1.Запустить Word
    2.Включить режим записи макроса. (Сервис->Макрос->Начать запись)
    Появляется следующее окно:

    Здесь можно, по желанию, указать
  • название макроса
  • кому доступен макрос (всем документам или текущему)
  • описание макроса, которое будет добавлено в виде комментария к тексту программы
  • комбинацию клавиш, при нажатии которых, выполнится данный макрос
  • кнопку на Панели инструментов, при нажатии на которую, выполнится данный макрос
    3.В пункте меню Формат->Шрифт установить нужные параметры.
    4.Закрыть диалоговое окно нажатием ОК.
    5.Остановить запись нажатием кнопку (на рисунке слева)


    Готовый макрос имеет один существенный недостаток: Он ПЕРЕВЫПОЛНЯЕТ свою работу. Кроме заданных параметров шрифта этот макрос задает также все остальные параметры (по умолчанию): например цвет, оформление (подчеркивание, зачеркивание и прочее).
    Поэтому рассмотрим
    2-й способ
    1.Открываем редактор Visual Basic (из пункта меню Сервис->Макрос->Редактор Visual Basic). Это можно сделать нажатием Alt+F11.
    На экране вы увидите примерно такую картину:

    Слева расположены два окна: Project и Properties. Если их не видно отобразить окна можно нажатием соответственно: Ctrl+R и F4.
    В данный момент наибольший интерес для нас представляет окно Project. В нем будет отображено примерно следующее:

    В окне Project в иерархическом виде отображены проекты (в данном случае Normal и Документ3) и все объекты к ним относящиеся (в данном случае документы Word, модули Module1 и NewMacros, и ссылка на стандартный шаблон Reference to Normal).
    В модуле NewMacros (или подобном) хранится макрос, только что записанный Вами. Посмотреть текст макроса можно двойным нажатием на NewMacros.
    Текст кода (макроса) можно вводить в любом из модулей. Если есть необходимость можно создать Новый модуль. Это возможно сделать несколькими способами, приведу два из них:
  • в выбранном проекте щелкнуть правой кнопкой мыши выбрать Insert->Module
  • указать нужный проект, выбрать пункт меню Insert->Module
    Далее двойным нажатием на название модуля (например Module1) открываем окно для редактирования кода и приступаем к созданию макроса.
    2.Вводим следующий текст:

    Sub Мак1()
    Selection.Font.Name = "Times"
    Selection.Font.Bold = True
    Selection.Font.Size = 16
    End Sub


    Все! Задача решена.

    Теперь можно испробовать макрос.
    Так как нам необходимо видеть результат выполнения вернемся в редактор Word.(Alt+Tab)
    1.Вводим какой-либо текст. Например: "Привет, МИР!".
    2.Выделяем его часть. Например слово МИР.
    Запускаем макрос. Для этого заходим в пункт меню Сервис->Макрос->Макросы.
    В открывшемся окне выбираем Мак1, нажимаем Выполнить.
    Конечно этот способ выполнения макроса не из лучших по скорости доступа.
    Назначим макросу комбинацию клавиш (например Ctrl+1).
    Для этого:
    Выбираем пункт меню Сервис->Настройка переходим на вкладку Параметры
    В нижнем правом углу окна нажать кнопку Клавиатура
    В появившемся окне в Категориях выбираем Макросы. И среди них выбираем наш Мак1.
    Переводим курсор в поле Новое сочетание клавиш, жмем Ctrl+1 и кнопку Назначить.
    Закрываем оба открытых окна. Все!
    Теперь при нажатии на Ctrl+1 будет выполняться макрос Мак1.

    Также макросу можно назначить кнопку на Панели инструментов.
    Это делается следующим образом:
    Выбираем пункт меню Сервис->Настройка переходим на вкладку Команды
    В Категориях выбираем Макросы. В появившемся справа списке макросов выбираем Normal.Module1.Maк1.
    Обратите внимание, что при нажатии на название макроса на кончике курсора мыши появляется изображение кнопки.
    Не отпуская Перетаскиваем эту кнопку на Панель инструментов. Готово!

    В этом уроке вы узнали:
    Что такое макрос?
    Как создавать макрос двумя способами?
    Как выполнять макрос?

    Урок окончен! До следующих выпусков.

    Обязательно задавайте вопросы.
    На e-mail: beranzor79@rambler.ru или через форму связи на сайте www.berezgov.ru.

    • © 2003 www.berezgov.ru
    http://subscribe.ru/
    E-mail: ask@subscribe.ru     		Отписаться
    Убрать рекламу
    В избранное