如何更改文本高亮颜色？

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 " Сценарий – это пакетный файл, позволяющий автоматизировать действия системного администратора."

The end result (picture)

Answer 1

您可以将 HighlightColorIndex 属性与 WdColorIndex 常量之一一起使用： WdColorIndex enumeration (Word)

使用您提供的代码，我认为您会使用 Sel.Range.HighlightColorIndex = 10，但您可以进行试验。

您也可以使用具有相同常量的 Sel.Range.Shading.BackgroundPatternColor 或直接使用 RGB 值。

如何更改文本高亮颜色？

How to change the text highlight color?

vbscript