Selection.Hyperlinks (Word)

Retorna uma coleção hyperlinks que representa todos os hiperlinks na seleção especificada. Somente leitura.

Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção.

If Selection.Hyperlinks.Count >= 1 Then 
 Selection.Hyperlinks(1).Follow 
End If