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