6. Выполнить после появления кнопки "Останов записи" команды: вкладка "Вставка" – "Картинка" – "Начать"  (выбрать рисунок) – "Вставить" – (закрыть окно картинок) – "Главная"  "Выровнять по центру".

7. Нажать клавишу Enter .

8. Выполнить далее: вкладка "Ссылка"  "Вставить название", выбрать в окне: "Название" – "Рисунок" – (или ввести (при необходимости) новую подпись под рисунком, нажав кнопку "Создать").

9. Нажать ОК.

10. Выбрать на панели "Главная" кнопку "Выровнять по центру".

11. Выделить название рисунка, для чего нажать клавишу Shift и сделать нужное для полного выделения названия количество нажатий клавиши "Стрелка влево".

12. Изменить кегль - 14, цвет шрифта – (например, красный).

13. Нажать клавишу "Стрелка вниз" для задания начальной точки следующего выполнения макроса или продолжения набора текста.

14. Нажать клавишу Enter .

15. Нажать останов по пути: вкладка "Разработчик" – "Остановить запись".

Примечание. Если необходимо временно приостановить запись, то следует нажать кнопку "Пауза" в разделе "Код" вкладки "Разработчик".

16. Проиграть макрос для проверки его работоспособности по пути: вкладка "Разработчик" – раздел "Код" – кнопка "Макросы" – (выбрать макрос)  "Выполнить".

Примечание. Если макрос не выполняется, то необходимо изменить режим защиты от макросов, нажав кнопку "Безопасность макросов" в разделе "Код" вкладки "Разработчик". Другой путь: вкладка "Файл" – "Параметры"  "Центр управления безопасностью" – "Параметры центра управления безопасностью". В открывшемся окне "Центр управления безопасностью" следует установить флажок "Включить все макросы".

Sub Вставка_рисунка()

' Вставка_рисунка Макрос

' Макрос записан 8.02.2013

Selection.InlineShapes.AddPicture FileName:= _

"C:\Program Files\Microsoft Office\MEDIA\CAGCAT10\j0090070.wmf", _

LinkToFile:=False, SaveWithDocument:=True

Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

Selection.TypeParagraph

Selection.InsertCaption Label:="Рисунок", TitleAutoText:="InsertCaption5", _

Title:="", Position:=wdCaptionPositionBelow, ExcludeLabel:=0

Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

Selection.MoveLeft Unit:=wdCharacter, Count:=9, Extend:=wdExtend

Selection.Font.Size = 14

Selection.Font.Color = wdColorRed

Selection.MoveDown Unit:=wdLine, Count:=1

Selection.TypeParagraph

End Sub

Отображение программного кода макроса (модуля) и редактирование макроса

Для того чтобы отредактировать макрос, необходимо отобразить модуль, содержащий этот макрос. Например, для созданного макроса "Вставка_рисунка" нужно пройти по пути: вкладка "Разработчик" – раздел "Код" – кнопка "Макросы" – выбрать шаблон Normal.dotm, где сохраняется по умолчанию записанный макрос, а в нем выбрать имя макроса и нажать команду "Изменить" или "Отладка".

Изучить листинг макроса и при необходимости отредактировать текст.

Расшифровка программного кода макроса

Sub + имя макроса – эта строка называется строкой объявления макроса. После имени следуют пустые круглые скобки.

Следующие строки – комментарии с информацией о его назначении, начинающиеся с апострофа и высвечиваются зелёным цветом.

Далее идет тело макроса (body), состоящее из операторов (statements).

Оператор VBA – это последовательность ключевых слов, которые в комплексе составляют полную инструкцию для выполнения команды VBA. Строки операторов печатается для удобства чтения с отступом относительно строки объявления макроса и строк комментариев.

Если строка имеет продолжение, то в конце ее ставится символ подчеркивания. Это  символ продолжения строки (line-continuation).

Операторы, имеющие продолжение, печатаются с несколько большим относительно других операторов отступом, чтобы их было легче обнаружить при чтении кода.

В последней строке без отступа записывается оператор End Sub (окончание макроса).

Создание кнопки управления макросом в Word

Команду запуска макроса можно упростить путём создания кнопки управления, располагаемой на ленте в созданной вкладке "Макросы" меню "Разработчик".

1. Войти в окно настройки по пути: вкладка "Файл" – "Параметры"  "Настройка ленты".

2. Выделить в правой части окна строку "Разработчик".

3. Щелкнуть внизу правой части окна кнопку "Создать группу" для размещения созданного макроса на панели инструментов "Разработчик".

4. Щёлкнуть внизу правой части окна кнопку "Переименовать" и присвоить настраиваемой группе (разделу) имя "Макросы".

5. Выбрать в списке "Выбрать команды" левой части окна каталог "Макросы".

6. Выделить в списке созданный макрос и нажать кнопку "Добавить". Макрос помещается в состав созданной группы "Макросы".

7. Щёлкнуть внизу правой части окна кнопку "Переименовать", назначить новое имя и рисунок макросу и нажать ОК.

8. Создать кнопку управления макросом на Панели быстрого доступа, используя режим настройки Панели.