Автор Тема: Word VBA Макросы. Как с помощью макроса закрасить выделенный текст?  (Прочитано 608 раз)

Оффлайн Mike_B

  • Посетитель форума
  • Сообщений: 11
Как с помощью макроса закрасить выделенный текст?

Оффлайн Администратор

  • Administrator
  • Сообщений: 2029
Этот макрос делает действие, аналогичное этому: вкладка "Главная" - группа "Абзац" - Заливка.

Sub Макрос()
    Selection.Shading.BackgroundPatternColor = -654246042
End Sub

Номер цвета можно узнать так.
1. Закрасьте фрагмент вручную: вкладка "Главная" - группа "Абзац" - Заливка.
2. Выделите закрашенный фрагмент (нужно именно выделить, а не просто поставить курсор внутрь фрагмента). Выделенный фрагмент не должен включать незакрашенные пробелы и другой незакрашенный текст.
3. Запустите этот код:
Sub Макрос()
    Debug.Print Selection.Shading.BackgroundPatternColor
End Sub
4. Отобразите область View - Immediate Window. В этой области будет цвет выделенного фрагмента.

Оффлайн Mike_B

  • Посетитель форума
  • Сообщений: 11