Word VBA Макросы. Как с помощью макроса закрасить выделенный текст?

[Посетитель]

Как с помощью макроса закрасить выделенный текст?

[Администратор]

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

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

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

[Посетитель]

спасибо