Clase Hyperlink (Word VBA)

La clase Hyperlink representa un hipervínculo.

Los principales procedimientos de la clase Hyperlink son Delete y Hyperlinks.Add

Set

Para usar una variable de clase Hyperlink, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase Hyperlink : Hyperlinks.Add, Hyperlinks.Item, InlineShape.Hyperlink, Shape.Hyperlink, ShapeRange.Hyperlink, Document.Hyperlinks, Range.Hyperlinks y Selection.Hyperlinks

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Hyperlink en una colección.

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

Métodos

Los principales métodos de la clase Hyperlink son

Delete - Elimina el hipervínculo especificado.

Selection.Hyperlinks(1).Delete

Hyperlinks.Add - Devuelve un objeto HYPERLINK que representa un hipervínculo nuevo agregado a un intervalo, una selección o un documento.

Dim hyp As Hyperlink
Set hyp = Selection.Hyperlinks.Add(Anchor:=)

Otros Métodos

CreateNewDocument - Crea un nuevo documento vinculado al hipervínculo especificado.

Dim strFileName As String: strFileName =  
Selection.Hyperlinks(1).CreateNewDocument FileName:=strFileName, EditNow:=True, Overwrite:=True

Follow - Muestra un documento almacenado en caché asociado con el objeto HYPERLINK especificado, si ya se ha descargado.

Selection.Hyperlinks(1).Follow

Propiedades

Address Devuelve o establece la dirección (por ejemplo, un nombre de archivo o una dirección URL) del hipervínculo especificado.

Selection.Hyperlinks(1).Address =

EmailSubject Devuelve o establece la cadena de texto para la línea de asunto del hipervínculo especificado.

Selection.Hyperlinks(1).EmailSubject =

ExtraInfoRequired True si se requiere información adicional para resolver el hipervínculo especificado.

Dim booExtraInfoRequired As Boolean
booExtraInfoRequired = Selection.Hyperlinks(1).ExtraInfoRequired

Name Devuelve el nombre del objeto especificado.

Dim strName As String
strName = Selection.Hyperlinks(1).Name

Parent Devuelve un objeto Object que representa el objeto primario del objeto Hyperlink especificado.

Dim objParent As Object
Set objParent = Selection.Hyperlinks(1).Parent

Range Devuelve un objeto Range que representa la parte de un documento incluida en un hipervínculo.

Dim rngRange As Range
Set rngRange = Selection.Hyperlinks(1).Range

ScreenTip Devuelve o establece el texto que aparece como sugerencia cuando se coloca el puntero del mouse sobre el hipervínculo especificado.

Selection.Hyperlinks(1).ScreenTip =

Shape Devuelve un objeto Shape para el nodo de diagrama o hipervínculo especificado.

Dim shpShape As Shape
Set shpShape = Selection.Hyperlinks(1).Shape

SubAddress Devuelve o establece una ubicación con nombre en el destino del hipervínculo especificado.

Selection.Hyperlinks(1).SubAddress =

Target Devuelve o establece el nombre del marco o la ventana en la que se va a cargar el hipervínculo.

Selection.Hyperlinks(1).Target =

TextToDisplay Devuelve o establece el texto visible del hipervínculo especificado en un documento.

Selection.Hyperlinks(1).TextToDisplay =

Type Devuelve el tipo de hipervínculo.

Dim mhtType As Office.MsoHyperlinkType
mhtType = Selection.Hyperlinks(1).Type

Hyperlinks.Count Devuelve un Long que representa el número de hipervínculos de la colección.

Dim lngCount As Long
lngCount = Selection.Hyperlinks.Count

Hyperlinks.Parent Devuelve un objeto Object que representa el objeto primario del objeto Hyperlinks especificado.

Dim objParent As Object
Set objParent = Selection.Hyperlinks.Parent