vba - Word VBA 查找并突出显示匹配项

Question

我有下面的代码，它们已经可以工作，但仍需要进行微调。它是一个查找通配符搜索字符串匹配项并突出显示匹配项的函数。但我相信它仍然可以使用全部替换在一行中完成。我已经尝试了几乎所有我能想到的方法，我认为是时候向专家请教了。请告诉我如何以更短的方式完成此操作。任何帮助将不胜感激。谢谢!

Sub findfunction()
If (findHL(activedocument.Range, "[aeiou]")) = True Then MsgBox "Highlight vowels Done", vbInformation + vbOKOnly, "Vowels Highlight Result"
End Sub

Function findHL(r As Range, s As String) As Boolean
Dim rdup As Range
Set rdup = r.Duplicate
rdup.Find.Wrap = wdFindStop

Do While rdup.Find.Execute(findtext:=s, MatchWildcards:=True) = True
   If (Not rdup.InRange(r)) Then Exit Do
   rdup.HighlightColorIndex = wdBlue
   rdup.Collapse wdCollapseEnd
Loop

findHL = True
End Function

Answer 1

谷歌隐藏得很深:

Options.DefaultHighlightColorIndex = wdYellow

Selection.find.HitHighlight( string )