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