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 ) 

Answer 2

经过一些试验，我设法找到了自己的解决方案。这是我的解决方案，仅供那些可能正在为我之前的问题寻找相同解决方案的其他人参考：

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

Function findHL(r As Range, s As String) As Boolean
Options.DefaultHighlightColorIndex = wdBlue
r.Find.Replacement.highlight = True
r.Find.Execute FindText:=s, MatchWildcards:=True, Wrap:=wdFindContinue, Format:=True,  replacewith:="", replace:=wdReplaceAll
findHL = True
End Function

简单，但它将我之前的代码精简为几行。