Appliquer le style au lien hypertexte

Question

Existe-t-il un moyen d'appliquer un style à un lien hypertexte, sans le sélectionner?

Par exemple, cela fonctionne:

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

Mais je n'aime pas la zone de sélection grise:

Voici ce que je cherche à accomplir:

Answer 1

Essayez comme ce:

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