Как изменить цвет подсветки текста?

Question

Вес вчерашнего дня, я попытался добавить этот код, чтобы он изменил цвет подсветки текста на тот, который показан на картинке. Я нашел много информации в Интернете, но, к сожалению, она не работает в контексте моего кода. Что делать?) Как изменить цвет выделенного текста?

Option Explicit
Dim WA,WD,Sel  ' Объявляем переменные
'Создаем объект¬–приложение Microsoft Word
Set WA=WScript.CreateObject("Word.Application")
' Можно было использовать конструкцию
' Set WA=CreateObject("Word.Application")
Set WD=WA.Documents.Add  'Создаем новый документ (объект Document)
WA.Visible=true  ' Делаем Word видимым
Set Sel=WA.Selection  'Создаем объект Selection
Sel.Font.Size=14 'Устанавливаем размер шрифта
Sel.ParagraphFormat.Alignment=1  'Выравнивание по центру
Sel.Font.Bold=true  'Устанавливаем полужирный шрифт
Sel.TypeText "Понятие сценариев" & vbCrLf  'Печатаем строку текста
Sel.Font.Bold=false  'Отменяем полужирный шрифт
Sel.ParagraphFormat.Alignment=0  'Выравнивание по левому краю
'Печатаем строку текста
Sel.TypeText " Сценарий – это пакетный файл, позволяющий автоматизировать действия системного администратора."

Конечный результат (картинка)

Answer 1

Вы можете использовать свойство HighlightColorIndex с одной из констант WdColorIndex : Перечисление WdColorIndex (Word)

С указанным кодом вы будете использоватьSel.Range.HighlightColorIndex = 10 Я думаю, но вы можете поэкспериментировать.

Вы также можете использовать Sel.Range.Shading.BackgroundPatternColor с теми же константами или значением RGB напрямую.