Ярлыки для изменения цвета текста

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

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

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

  1. Выберите слово или фразу. (На самом деле не имеет значения, что вы выберете.)
  2. Отобразите вкладку «Разработчик» на ленте.
  3. В группе «Код» щелкните инструмент «Запись макроса». Word отображает диалоговое окно «Запись макроса». (См. Рис. 1.)
  4. Рис. 1. Диалоговое окно «Запись макроса».

  5. В поле «Имя» введите имя макроса, описывающее то, что вы делаете. (Например, если вы записываете макрос, чтобы сделать текст синим, вы можете использовать имя MakeTextBlue .)
  6. Использование раскрывающегося списка Сохранить макрос в , выберите “Все документы” (Normal.dotm).
  7. Нажмите кнопку “Клавиатура”. Word закрывает диалоговое окно «Запись макроса» и вскоре отображает диалоговое окно «Настройка клавиатуры». Обратите внимание, что имя макроса, которое вы указали на шаге 4, отображается в диалоговом окне, а точка вставки мигает в поле «Нажмите новую комбинацию клавиш». (См. Рис. 2.)
  8. Рис. 2. Диалоговое окно «Настройка клавиатуры».

  9. Нажмите сочетание клавиш, которое вы хотите использовать для вызова макроса. (Например, вы можете нажать Shift + Alt + B , поскольку ваш макрос сделает выделенный текст синим.)
  10. Нажмите кнопку «Назначить». Теперь сочетание клавиш отображается как назначенное макросу.
  11. Нажмите “Закрыть”. Word закрывает диалоговое окно «Настройка клавиатуры», и запускается средство записи макросов.
  12. Нажмите Ctrl + D . Word отображает диалоговое окно «Шрифт». (См. Рис. 3.)
  13. Рис. 3. Диалоговое окно «Шрифт».

  14. В раскрывающемся списке «Цвет шрифта» выберите любой желаемый синий цвет.
  15. Нажмите OK, чтобы закройте диалоговое окно “Шрифт”.
  16. Щелкните инструмент “Остановить запись” в группе “Код”..

На этом ваш макрос готов, и вы можете вызвать его, выделив текст и нажав 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 = False1158 .Color. = False.  .Subscript = False .Spacing = 0 .Scaling = 100 .Position = 0 .Kerning = 0 .Animation = wdAnimationNone .Ligatures = wdLigaturesNone .NumberSpacing = wdNumberSpacingDefault .NumberForm = wdNumberSpacingDefault .NumberForm = wdNumberFormDefault.  > 

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

 Sub MakeTextBlue () Selection.Font.Color = 12611584End Sub 

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

 Sub MakeTextBlue () Selection.Font.Color = RGB (0, 0, 255) End Sub 

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

Оцените статью
Frestage.ru
Добавить комментарий