如何更改文本突出显示颜色?

问题描述 投票:0回答:1

昨天的重量,我尝试添加此代码,以便将文本的突出显示颜色更改为图片中显示的颜色。我在Internet上找到了很多信息,但不幸的是,它在我的代码上下文中不起作用。该怎么办?)如何更改所选文本的颜色?

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)

vbscript
1个回答
0
投票

尝试以下操作之一:

Sel.Font.TextColor.RGB = RGB(68, 114, 196)

Sel.Font.ColorIndex = 10

就背景色而言,可以将HighlightColorIndex属性与相同的ColorIndex常数一起使用。

您也可以将Sel.Range.Shading.BackgroundPatternColor与相同的常数或RGB值直接使用。

请参阅可用的WdColorIndex常量列表:WdColorIndex enumeration (Word)

© www.soinside.com 2019 - 2024. All rights reserved.