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

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

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

最佳答案

隐藏在Google内部的深处:

Options.DefaultHighlightColorIndex = wdYellow

Selection.find.HitHighlight( string )