Толик Панков
hex_laden
............ .................. ................
December 2025
  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 31

Толик Панков [userpic]
Переключение шрифтов в Microsoft Word с помощью VBA

Бывает так, что в документе постоянно используются, например, два шрифта, и через некоторое время надоедает переключать их мышью. Это можно исправить с помощью VBA.
Предположим, что постоянно надо переключаться между Courier New и умолчальным Times New Roman, я это часто делаю, когда пишу про что-нибудь околоайтишное (Courier'ом выделяю код), а наши девочки – когда вставляют код в отчеты.
Итак:

1. Включаем запись макроса, называем его, например SetCourier, в окошке записи нажимаем кнопку, и далее назначаем удобное сочетание клавиш, например Alt+C
2. Выполняем любое действие (да хоть любой символ введите) и останавливаем запись.
3. Идем в меню Сервис – Макрос – Макросы, в появившемся окошке находим наш макрос, нажимаем Изменить, откроется редактор VBA, где и будем работать дальше.
4. Удаляем все, что между Sub SetCourier() и End Sub
5. Вставляем туда следующий код:

Selection.Font.Name = "Courier New"

Аналогично делаем и для Times New Roman, только называем макрос по-другому (например, SetTimes) назначаем другое сочетание клавиш, и вставляем следующий код:

Selection.Font.Name = "Times New Roman"

Теперь нажав соответствующие комбинации клавиш, можно переключить шрифт, а если предварительно выделить текст, то он также изменит свой шрифт.

Макросы на pastebin