Selection.Hyperlinks (Word)
Devuelve una colección Hyperlinks que representa todos los hipervínculos de la selección especificada.
Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección.
If Selection.Hyperlinks.Count >= 1 Then
Selection.Hyperlinks(1).Follow
End If