将样式应用于超链接

Question

有没有办法将样式应用于超链接而不选择它？

例如，这有效：

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

但我不喜欢灰色选区：

这是我试图完成的事情：

Answer 1

试试这样：

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