макросов ещё заключается в том, что намного проще написать программу, используя уже готовый код, просто изменив необходимую часть. Поэтому для решения некоторой задачи можно включить запись макросов, выполнить действия, близкие к решению поставленной задачи, перейти в редактор VBA (Alt+F11), изменить код для уточнения действий по решению задачи. Макросу можно назначить кнопку на панели и/или горячую клавишу.

Создайте новый документ (Ctrl+N). Командой Вид/ Макросы/ Запись макроса включите запись, оставьте имя макроса, которое предлагает Word, запомните его (или внесите свой комментарий). В поле Макрос доступен для укажите текущий документ. Во время записи макроса не делайте лишних действий, т.к. они тоже будут записаны в макрос. Введите текст 12345, нажмите Ctrl+[ для увеличения размера шрифта последующего текста на единицу, нажмите Enter для перевода каретки в новую строку. Завершите запись макроса командой Вид/ Макросы/ Остановить запись. Повторите вызов макроса несколько раз командой Вид/ Макросы/ Макросы, в списке выберите свой макрос и нажмите Выполнить. В окне выбора макроса для сокращения списка удобно выбрать в поле Выбрать для текущий документ.

Откройте окно VBA клавишами Alt+F11, слева в окне проектов выберите проект текущего документа, раздел Modules, лист NewMacros.

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

Sub Макрос1()

Selection.TypeText Text:="12345"

Selection.Font.Size = Selection.Font.Size + 1

Selection.TypeParagraph

End Sub

Можете изменить текст и размер в коде и посмотреть на результат выполнения макроса.

9.5.15. Программа VBA выравнивание объектов в строке по вертикали

При вставке объекта в документ в режиме обтекания текстом В тексте (Inline Shape) выравнивание производится по вертикали по нижнему краю строки. Часто необходимо выполнить выравнивание по

185

вертикали по центру. Особенно это необходимо для формул, картинок с элементами интерфейса и специальных символов, создаваемых внешними программами. Особое внимание заслуживает редактор формул MathType. Формулы, созданные в MathType, автоматически выравниваются по средней линии (уровень обычного текста или черты дроби), причём не важно, пропорциональны части формулы или нет, но размещена она будет в соответствии со средней линией. Неудобства возникают при масштабировании формул. Величина смещения при масштабировании не меняется и центровка нарушается. В этом случае рекомендуется изменить размер основного стиля MathType и произвести автоматическое форматирование (или конвертирование) всех формул документа. Формулы будут выровнены по центральной линии заново. Для других объектов можно использовать смещение в строке относительно текста. Выделите объект, вызовите окно настроек шрифта, перейдите на вкладку Дополнительно. В поле Смещение укажите значение вверх, если высота объекта больше высоты строки и вниз, если меньше. Введите значение смещения, которое равно абсолютному значению разницы высоты объекта и размера шрифта основного текста строки, делённой пополам и округлённой до целого (Int(|ImageHeight – FontSize| / 2)). Если объекты, которые необходимо выравнивать, встречаются часто, эффективно использовать макрос VBA, который будет производить операцию выравнивания автоматически. Для ввода программы вызовите редактор VBA командой меню клавишами ALT+F11. В редакторе VBA в окне Project откройте тему Normal и создайте новое окно макроса командой контекстного меню Insert/ Module, которое вызывается правой кнопкой на теме Normal. В открывшемся окне редактирования введите следующую программу.

Sub CenterVertInlineShape()

Dim ObjShift As Integer, ImageHeight As Integer

Dim FontSize As Integer

Dim ObjOLEFmt As String

'Выравнивает выбранный объект по центру по высоте в строке

'Применяем выравнивание, если выделен рисунок в тексте

If (Selection.Type = wdSelectionInlineShape) Then

'Определяем приложение, связанное с этим объектом

186