Как редактор, Джиллиан любит раскрашивать разделы текста для авторов.

Поэтому она хотела бы иметь возможность создавать несколько сочетаний клавиш для выделения разными цветами после выделения текста (например, Alt + G для зеленого, Alt + B для синего и Alt + Y для желтого).

Джиллиан задается вопросом, возможно ли это.

Да, это возможно, но для работы вам потребуется макрос.

Однако перед этим вам нужно выяснить, какие сочетания клавиш вы хотите использовать. Джиллиан предлагает использовать Alt + G, Alt + B и Alt + Y.

Вы можете сделать это, но это может конфликтовать с другими способами использования клавиши Alt (например, с доступом к инструментам ленты с клавиатуры). Возможно, лучше использовать сочетания клавиш, такие как Shift + Alt + G, Shift + Alt + G и Shift + Alt + Y.

Чтобы записать макрос, который устанавливает цвета текста, просто выполните следующие действия:

  1. Выберите слово или фразу. (Неважно, что вы выберете.)

  2. Отобразите ссылку: / wordribbon-Displaying_the_Developer_Tab [вкладка разработчика] на ленте.

  3. В группе «Код» щелкните инструмент «Запись макроса». Word отображает диалоговое окно «Запись макроса». (См. Рис. 1.)

  4. В поле Имя введите имя макроса, описывающее то, что вы делаете. (Например, если вы записываете макрос, чтобы сделать текст синим, вы можете использовать имя MakeTextBlue.)

  5. В раскрывающемся списке «Сохранить макрос» выберите «Все документы (Normal.dotm)».

  6. Щелкните кнопку клавиатуры. Word закрывает диалоговое окно «Запись макроса» и вскоре отображает диалоговое окно «Настройка клавиатуры». Обратите внимание, что имя макроса, указанное на шаге 4, отображается в диалоговом окне, а точка вставки мигает в поле «Нажмите новую комбинацию клавиш». (См. Рис. 2.)

  7. Нажмите сочетание клавиш, которое вы хотите использовать для вызова макроса. (Например, вы можете нажать Shift + Alt + B, поскольку ваш макрос сделает выделенный текст синим.)

  8. Щелкните кнопку Назначить. Теперь сочетание клавиш отображается как назначенное макросу.

  9. Щелкните Close. Word закрывает диалоговое окно «Настройка клавиатуры», и запускается средство записи макросов.

  10. Нажмите Ctrl + D. Word отображает диалоговое окно Шрифт. (См. Рис. 3.)

  11. В раскрывающемся списке «Цвет шрифта» выберите любой желаемый синий цвет.

  12. Щелкните OK, чтобы закрыть диалоговое окно Font.

  13. Щелкните инструмент «Остановить запись» в группе «Код».

На этом ваш макрос готов, и вы можете вызвать его, выделив текст и нажав Shift + Alt + B. Вы можете создать аналогичные макросы, чтобы установить другие цвета по желанию.

Есть одна часть вышеперечисленных шагов, которую необходимо объяснить. Обратите внимание на способ отображения диалогового окна «Шрифт» на шагах с 10 по 12. Вы можете подумать, что можете просто отобразить вкладку «Главная» на ленте и использовать расположенные там инструменты для установки цвета шрифта. Проблема в том, что при тестировании это не всегда приводило к тому, что шаг (установка цвета) записывался макросом. Шрифт на экране изменил цвет, но шаг не появился в макросе. Как отмечалось, единственный способ надежно установить цвет шрифта и записать его в макрос — это отобразить диалоговое окно «Шрифт».

Если вы посмотрите только что записанный макрос, вы увидите, что он выглядит так:

Sub MakeTextBlue()

' ' MakeTextBlue Macro ' '     With Selection.Font         .Name = "+Body"

.Size = 11         .Bold = False         .Italic = False         .Underline = wdUnderlineNone         .UnderlineColor = wdColorAutomatic         .StrikeThrough = False         .DoubleStrikeThrough = False         .Outline = False         .Emboss = False         .Shadow = False         .Hidden = False         .SmallCaps = False         .AllCaps = False         .Color = 12611584         .Engrave = False         .Superscript = False         .Subscript = False         .Spacing = 0         .Scaling = 100         .Position = 0         .Kerning = 0         .Animation = wdAnimationNone         .Ligatures = wdLigaturesNone         .NumberSpacing = wdNumberSpacingDefault         .NumberForm = wdNumberFormDefault         .StylisticSet = wdStylisticSetDefault         .ContextualAlternates = 0     End With End Sub

Если вы думаете, что это длинный макрос для одного шага (установка цвета текста), вы правы. Это классический пример того, что макрорекордер слишком обширен в том, что он записывает. Вы можете легко сократить макрос до следующего:

Sub MakeTextBlue()

Selection.Font.Color = 12611584 End Sub

Если вы хотите даже немного большей гибкости в макросе, вы также можете использовать следующее:

Sub MakeTextBlue()

Selection.Font.Color = RGB(0, 0, 255)

End Sub

Затем вы можете легко настроить значение RGB, используемое для цвета, играя с тремя параметрами, используемыми с функцией RGB.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (4269) относится к Microsoft Word 2007, 2010, 2013 и 2016.