将样式应用于超链接

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