将样式应用于超链接

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

将样式应用于超链接

Apply style to hyperlink

vba

ms-word

ms-office