Classe Hyperlinks - a coleção de hiperlinks para uma planilha ou um intervalo (Word VBA)

A classe Hyperlinks representa a coleção de objetos Hyperlink em um documento, intervalo ou seleção. Para usar uma variável de classe Hyperlinks, ela primeiro precisa ser instanciada por exemplo

Dim hyps as Hyperlinks
Set hyps = Selection.Hyperlinks

For Each

Aqui está um exemplo de processamento dos itens Hyperlinks em uma coleção.

Dim hyp As Hyperlink
For Each hyp In Selection.Hyperlinks
	
Next hyp

Add

Retorna um objeto Hyperlink que representa um novo hiperlink adicionado a um intervalo, seleção ou documento.

Add (Anchor, Address, SubAddress, ScreenTip, TextToDisplay, Target)

ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, _ 
 Address:="http:\\www.microsoft.com"

Arguments

O seguinte argumento é necessário

Anchor (Hyperlink) - O texto ou gráfico que você deseja transformar em um hiperlink.

Optional arguments

Os seguintes argumentos são opcionais

Address (String) - O endereço do vínculo especificado. O endereço pode ser um endereço de email, um endereço da Internet ou um nome de arquivo. Observe que o Microsoft Word não verifica a precisão do endereço.

SubAddress (String) - O nome de um local dentro do arquivo de destino, como um indicador, intervalo nomeado ou número de slide.

ScreenTip (String) - O texto exibido como uma dica de tela quando o ponteiro do mouse é posicionado sobre o hiperlink especificado. O valor padrão é "Address".

TextToDisplay (String) - O texto de exibição do hiperlink especificado. O valor desse argumento substitui o texto ou gráfico especificado por Anchor.

Target (String) - O nome do quadro ou da janela na qual você deseja carregar o hiperlink especificado.

Count

Retorna um Long que representa o número de hiperlinks na coleção. Somente leitura.

Dim lngCount As Long
lngCount = Selection.Hyperlinks.Count

Item

Retorna um objeto Hyperlink individual em uma coleção.

Item (Index)

Index: O objeto individual a ser retornado. Pode ser um Long que indica a posição ordinal ou uma cadeia de caracteres que representa o nome do objeto individual.

Dim hyp As Hyperlink
Set hyp = Selection.Hyperlinks(Index:=1)