В этом уроке мы отредактируем ранее записанный нами макрос «МояПерваяТаблица». А также, посмотрим, как выглядит код VBA. Хотя углубляться в подробное изучение всего что написано в этом коде мы начнём немного позже.
Для начала, давайте изменим макрос «МояПерваяТаблица» так, чтобы при автоматическом добавлении таблицы в документ Word в названии колонок записывался другой текст. То есть, чтобы вместо «№ п/п», «ФИО», «Класс» и «Группа», в колонках было написано: «Колонка 1», «Колонка 2», «Колонка 3», «Колонка 4».
Алгоритм действий
Шаг 1. Перейдите на Ленте во вкладку Вид и в группе Макросы кликните по кнопке Макросы. Если вы всё сделали правильно, то перед вами должно появиться окно «Макросы» со списком всех записанных ранее макросов.
Шаг 2. Выделяем макрос «МояПерваяТаблица» кликнув по нему левой кнопкой мыши и нажимаем «Изменить». Если вы всё сделали правильно, то перед вами появится окно редактора кода VBA.
Шаг 3. Сейчас, набор символов и слов в этом окне, кажется для нас чем-то ужасным. Но скоро мы начнём постепенно разбираться в написанном, и подобный код уже не будет нас пугать. Сейчас же давайте просто найдём те слова, которые нужно заменить. Найти эти слова можно визуально (это не так уж и сложно). А можно использовать сочетание клавиш Ctrl+F, чтобы вызвать окно поиска и с его помощью найти нужную строчку кода. Если вы ищите нужное слово с помощью окна Find, то достаточно просто ввести искомый текст в поле Find What, оставить отмеченным пункт Curent Module, и нажать на кнопку Find Next.
Если вы всё правильно сделали, то нашли следующие строки:
- Selection.TypeText Text:="№ п/п"
- Selection.TypeText Text:="ПІБ"
- Selection.TypeText Text:="Клас"
- Selection.TypeText Text:="Група"
Вот в этих строках и нужно выполнять замену текста. Всё что находится в кавычках мы меняем на тот текст, который нужно отобразить в колонках таблицы:
- № п/п меняем на Колонка 1
- ФИО меняем на Колонка 2
- Класс меняем на Колонка 3
- Группа меняем на Колонка 4
Примечание.
Всё можно сделать быстрее, если использовать окно Replace (Замена).
Чтобы вызвать это окно, нажимаем сочетание клавиш Ctrl+H. В поле Find What вводим текст, который нужно найти (в нашем случае это будет № п/п). В поле Replace With вводим текст, который нужно вставить вместо найденного (в нашем случае это будет Колонка 1). Оставляем отмеченным пункт Curent Module и нажимаем кнопку Replace (это заменит первое найденное значение из поля Find What), или Replace All (это заменит все найденные совпадения в тексте, если их несколько).
После того, как мы внесли все изменения в код, обязательно нужно нажать Ctrl+S, или кликнуть по иконке «Сохранить» в среде разработки VBA.
Теперь мы должны проверить работоспособность нашего макроса.
Интегрированную среду разработки VBA уже можно закрыть (просто нажимаем на крестик «Закрыть» в самом верхнем правом углу).
Далее всё как обычно.
На Ленте переходим на вкладку Вид. Кликаем по кнопке Макросы группы Макросы. Отмечаем макрос «МояПерваяТаблица» и нажимаем выполнить. В результате перед вами должна появиться таблица с четырьмя колонками и четырьмя строками, но уже с другими заголовками колонок: Колонка 1, Колонка 2, Колонка 3, Колонка 4.
Угостить автора чашечкой кофе