Абзац с цветным фоном

Иногда в сплошном унылом тексте документа необходимо выделить некий абзац с важной информацией так, чтобы он был заметен среди однообразного текста. Например, применить цветной фон для абзаца.

Конечно, это можно сделать и с помощью соответствующего стиля (стилей). Но можно воспользоваться простым макросом.

Следующий макрос оформляет абзац, в котором находится курсор ввода, желтым фоном со шрифтом синего цвета:

Конкретный цвет фона можно поменять в строке:

.ParagraphFormat.Shading.BackgroundPatternColor = wdColorLightYellow

и/или цвет шрифта в строке:

.Font.ColorIndex = wdBlue

Sub highliteColorParagraph()
'выделенный цветом абзац
'добавляем желтый фон и шрифт синего цвета для абзаца,
'в котором находится курсор ввода
With Selection
   .StartOf wdParagraph, wdMove
   .EndOf wdParagraph, wdExtend
   .ParagraphFormat.Shading.BackgroundPatternColor = wdColorLightYellow
   .Font.ColorIndex = wdBlue
   .Collapse wdCollapseStart
End With
End Sub