Vbscript 如何更改文本高亮显示颜色?
昨天,我尝试添加此代码,以便将文本的高亮颜色更改为图片中显示的颜色。我在互联网上找到了很多信息,但不幸的是,它在我的代码上下文中不起作用。 怎么做?)如何更改文本选择的颜色Vbscript 如何更改文本高亮显示颜色?,vbscript,Vbscript,昨天,我尝试添加此代码,以便将文本的高亮颜色更改为图片中显示的颜色。我在互联网上找到了很多信息,但不幸的是,它在我的代码上下文中不起作用。 怎么做?)如何更改文本选择的颜色 Option Explicit Dim WA,WD,Sel ' Объявляем переменные 'Создаем объект¬–приложение Microsoft Word Set WA=WScript.CreateObject("Word.Application") ' Можно было испол
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 " Сценарий – это пакетный файл, позволяющий автоматизировать действия системного администратора."
您可以将
HighlightColorIndex
属性与WdColorIndex常量之一一起使用:
有了您提供的代码,您可以使用Sel.Range.HighlightColorIndex=10
,但您可以进行实验
您也可以将
Sel.Range.Shading.BackgroundPatternColor
与相同的常量或直接使用RGB值一起使用。建议在使用COM库时始终复制代码中的“命名常量”,而不是使用幻数。i、 e.Const wdTeal=10
。相关,但需要在使用前定义命名常量。