Compartir a través de

Objeto Hyperlinks (Publicador)

Representa la colección de hipervínculo objetos en un intervalo de texto.

Observaciones

Utilice la propiedad TextRange.Hyperlinks para devolver la colección Hyperlinks .

Utilice la ventana Agregar método para crear un hipervínculo y agregarlo a la colección Hyperlinks.

Use Hyperlinks (index), donde index es el número de índice, para devolver un único objeto Hyperlink en una publicación, rango o selección.

La propiedad Count de esta colección devuelve el número de hipervínculos únicamente de la forma o de la selección especificada.

Ejemplo

En el ejemplo siguiente se eliminan todos los hipervínculos de texto de la publicación activa que contienen la palabra Tailspin en la dirección.

Sub DeleteMSHyperlinks() 
 Dim pgsPage As Page 
 Dim shpShape As Shape 
 Dim hprLink As Hyperlink 
 For Each pgsPage In ActiveDocument.Pages 
 For Each shpShape In pgsPage.Shapes 
 If shpShape.HasTextFrame = msoTrue Then 
 If shpShape.TextFrame.HasText = msoTrue Then 
 For Each hprLink In shpShape.TextFrame.TextRange.Hyperlinks 
 If InStr(hprLink.Address, "tailspin") <> 0 Then 
 hprLink.Delete 
 Exit For 
 End If 
 Next 
 Else 
 shpShape.Hyperlink.Delete 
 End If 
 End If 
 Next 
 Next 
End Sub

En el ejemplo siguiente se crea un nuevo hipervínculo al sitio web especificado.

Sub AddHyperlink() 
 Selection.TextRange.Hyperlinks.Add Text:=Selection.TextRange, _ 
 Address:="https://www.tailspintoys.com/" 
End Sub

Este ejemplo muestra la dirección del primer hipervínculo si la selección especificada contiene hipervínculos.

Sub DisplayHyperlinkAddress() 
 With Selection.TextRange.Hyperlinks 
 If .Count > 0 Then _ 
 MsgBox .Item(1).Address 
 End With 
End Sub

Métodos

Propiedades

Vea también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.

  • Last updated on