Vba 将样式应用于超链接

有没有一种方法可以将样式应用于超链接而不选择它

例如，这项工作：

Sub ChangeStyle()
    Selection.Range.Hyperlinks(1).Range.Fields(1).Result.Select
    Selection.Style = Word.WdBuiltinStyle.wdStyleHyperlinkFollowed
End Sub

但我不喜欢灰色选择区域：

以下是我试图实现的目标：

像这样尝试：

Sub ChangeStyle()
    Selection.Range.Hyperlinks(1).Range.Fields(1).Result.Style = Word.WdBuiltinStyle.wdStyleHyperlinkFollowed
End Sub