如何使用 VBA 的 HighlightColorIndex 开始和停止突出显示文本

Question

我正在从另一个应用程序中提取文本并即时创建 MS-Word 文档。

有时，当我发现这些单词时，可能会突出显示所需的单词。我无法理解的是如何停止显示HighlightColorIndex。

我尝试过 Selection.Collapse、Selection.Range.Collapse 和 Selection.Range.HighlightColorIndex = wdNoHighlight 都取得了有限的成功。你能帮忙吗？

Dim lngRangeStart As Long
Dim lngRangeEnd As Long
Selection.TypeText Text:="Test of colour" ' No highlighting at present
Selection.TypeParagraph                   ' 
Selection.TypeText Text:="Starting colour after colon: " ' No highlighting at present

lngRangeStart = Selection.Start   ' set to the start of the Range

Selection.Range.StartOf
Selection.TypeText Text:="This text is highlighted"

lngRangeEnd = Selection.Start ' set to the end of the Range and sel.start appears correct

Selection.SetRange Start:=lngRangeStart, End:=lngRangeEnd ' sets range correctly
Selection.Range.HighlightColorIndex = wdYellow

' >>> This is where I need to cease highlighting but what to do?
{funky code to stop highlighting here}
Selection.TypeText Text:="Now back to clear text"

Answer 1

您需要像之前一样选择文本并将其突出显示重置为无 wdNoHighlight

使用以下代码

' >>> This is where I need to cease highlighting but what to do?
'{funky code to stop highlighting here}
Selection.Move WdUnits.wdCharacter, 1
''Clear for text
lngRangeStart = Selection.Start
Selection.TypeText text:="Now back to clear text"
lngRangeEnd = Selection.Start
Selection.SetRange Start:=lngRangeStart, End:=lngRangeEnd ' sets range correctly
Selection.Range.HighlightColorIndex = wdNoHighlight

Selection.Move WdUnits.wdCharacter, 1
Selection.TypeText text:="Now back to the future text"

Answer 2

如果我正确理解你的问题，那么你只需将突出显示颜色设置为 wdColorAutomatic ，这是一个指定自动（默认）颜色的常量。

因此，将它们放在一起，为了突出显示文本，您可以将其背景设置为 wdColorYellow。要删除突出显示，您可以将其背景设置为 wdColorAutomatic。