Урок 91. Макрос объединенный

Это продолжение статей «Урок 60. Макрос для таблицы», «Урок 61. Макрос преобразования страницы» и «Урок 90. Удаление всех закладок».

Написать хороший рабочий макрос – очень непростое дело. Чтобы он заработал в полную силу, надо тщательно продумать все свои действия. Но я нередко упускаю из вида какое-либо действие, которое необходимо. Что делать в этом случае? Заново начать писать макрос? А потом поочередно запускать сначала один, потом другой? Давайте смоделируем эту ситуацию.

По окончании этого урока вы сможете:

  1. Записать «Макрос1»
  2. Записать «Макрос2»
  3. Объединить работу этих макросов в один

Скачайте учебный фай тут и откройте его. В документе две таблицы (мне о таких документах приходится только мечтать).

1. Запись «Макрос1»

Давайте решим, что нам нужно от таблицы:

  1. Заголовок, повторяющийся на каждой странице и с выравниванием по середине.
  2. Шрифт в таблице – Calibri

Много делать не будем. Важен принцип.

Шаг 1. Выделяем первую строку первой таблицы

Шаг 2. Записываем макрос (лента Разработчик → группа команд Код → команда запись макроса):

макрос в Word

Шаг 3. Назначаем выполнение макроса сочетанию клавиш Ctrl+1:

макрос в Word

Шаг 4. Форматируем таблицу:

макрос в Word
  1. Команда «Повторить строки как заголовки»
  2. Команда «Выровнять по центру»
  3. Команда «Выделить» → команда «Выделить таблицу» из выпадающего меню

Заметили, что курсор принял соответствующий вид?

Шаг 5. Лента Главная → группа команд Шрифт → шрифт Calibri из выпадающего меню:

макрос в Word

Шаг 6. Останавливаем запись макроса

макрос в Word

И тут мы вспоминаем что забыли установить поля ячеек!

2. Запись «Макрос2»

Давайте усложним задачу: второй макрос запишем для второй таблицы.

Шаг 1. Выделяем вторую таблицу

Шаг 2. Записываем макрос (сочетание клавиш Ctrl+2)

Шаг 3. Устанавливаем новые поля ячеек таблицы (лента Макет → группа команд Выравнивание → команда Поля ячеек → диалоговое окно Параметры таблицы → значения по 0,05 для левого и правого полей ячеек):

макрос в Word

Шаг 4. Останавливаем запись макроса

3. Объединяем два макроса в один

Шаг 1. Открываем рабочее окно «Макрос» (лента Разработчик → группа команд Код → команда Макрос)

Шаг 2. В рабочем окне есть список из трех макросов. Назначаем команду «Изменить»:

макрос в Word

Шаг 3. Изучаем окно «Microsoft Visual Basic for Applications»:

visual basic
  1. delAllbookmarks «Удаление всех закладок»
  2. Макрос1
  3. Макрос2

Очень удобно: все макросы под одной крышей!

Шаг 4. Удаляем выражение:

End Sub
Sub Макрос2()

‘ Макрос2 Макрос

макрос в Word

То есть по сути дела мы удаляем конец Макрос1 и начало Макроса2 (вспомните, что в статье «Урок 90. Удаление всех закладок» я просила вас обратить внимание на имя и завершение макроса).

Шаг 5. Закрываем окно «Microsoft Visual Basic for Applications»

Шаг 6. Проверяем работу макроса на первой таблице (выделяем строчку заголовка → лента Разработчик → группа команд Код → команда Макрос → Макрос1 в поле Имя → команда Выполнить):

макрос в Word
Это очень важно!Если мы выделим всю таблицу и запустим макрос, то все строчки таблицы станут заголовками!
По ходу выполнения макроса таблица будет выделяться на определенном этапе

Обратите внимание, что «Макрос2» исчез из списка. Но работать «Макрос1» теперь от сочетания клавиш не будет, поэтому его выполнение приходится задавать из рабочего окна «Макрос».

Шаг 7. Проверяем работу макроса на второй таблице (выделяя строчку заголовка – в этой таблицы две строчки, так как имеются объединённые ячейки):

талица в Word

Шаг 8. Убеждаемся, что верхние строчки таблицы являются заголовками (просто «прошлёпываем» Enter):

талица в Word

По дороге замечаем, что размер шрифтов в таблице разный. Но теперь вы можете написать макросы, а затем объединить их в один. Если у вас много таблиц, то целесообразно вынести кнопку макроса на Панель быстрого доступа (статья «Урок 60. Макрос для таблицы»).

Теперь вы сможете:

  1. Записать «Макрос1»
  2. Записать «Макрос2»
  3. Объединить работу этих макросов в один макрос

Оставьте первый комментарий

Комментировать