Classe Hyperlink (Word VBA)

La classe Hyperlink représente un lien hypertexte.

Les procédures principales de la classe Hyperlink sont Delete et Hyperlinks.Add

Set

Pour utiliser une variable de classe Hyperlink, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Hyperlink : Hyperlinks.Add, Hyperlinks.Item, InlineShape.Hyperlink, Shape.Hyperlink, ShapeRange.Hyperlink, Document.Hyperlinks, Range.Hyperlinks et Selection.Hyperlinks

For Each

Voici un exemple de traitement des éléments Hyperlink dans une collection

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

Méthodes

Les méthodes principales de la classe Hyperlink sont

Delete - Supprime le lien hypertexte spécifié.

Selection.Hyperlinks(1).Delete

Hyperlinks.Add - Renvoie un objet Hyperlink qui représente un nouveau lien hypertexte ajouté à une plage, une sélection ou un document.

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

Autre Méthodes

CreateNewDocument - Crée un document lié au lien hypertexte spécifié.

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

Follow - Affiche un document mis en cache associé à l’objet Hyperlink spécifié s’il a déjà été téléchargé.

Selection.Hyperlinks(1).Follow

Propriétés

Address Renvoie ou définit l’adresse (par exemple, un nom de fichier ou une URL) du lien hypertexte spécifié.

Selection.Hyperlinks(1).Address =

EmailSubject Cette propriété renvoie ou définit la chaîne de texte pour la ligne d'objet du lien hypertexte spécifié.

Selection.Hyperlinks(1).EmailSubject =

ExtraInfoRequired True si des informations supplémentaires sont obligatoires pour rechercher le lien hypertexte spécifié.

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

Name Renvoie le nom de l'objet spécifié.

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

Parent Renvoie un Object qui représente l'objet parent de l'objet Hyperlink spécifié.

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

Range Renvoie un objet Range qui représente la partie d'un document contenue dans un lien hypertexte.

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

ScreenTip Cette propriété renvoie ou définit le texte qui apparaît sous la forme d'une info-bulle lorsque le pointeur de la souris est positionné sur le lien hypertexte spécifié.

Selection.Hyperlinks(1).ScreenTip =

Shape Renvoie un objet Shape pour le lien hypertexte ou le nœud de diagramme spécifié.

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

SubAddress Cette propriété renvoie ou définit un emplacement nommé dans la destination du lien hypertexte spécifié.

Selection.Hyperlinks(1).SubAddress =

Target Cette propriété renvoie ou définit le nom du cadre ou de la fenêtre dans laquelle le lien hypertexte de la charge.

Selection.Hyperlinks(1).Target =

TextToDisplay Cette propriété renvoie ou définit le texte visible du lien hypertexte spécifié dans un document.

Selection.Hyperlinks(1).TextToDisplay =

Type Renvoie le type de lien hypertexte.

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

Hyperlinks.Count Renvoie un type long qui représente le nombre de liens hypertexte dans la collection.

Dim lngCount As Long
lngCount = Selection.Hyperlinks.Count

Hyperlinks.Parent Renvoie un Object qui représente l'objet parent de l'objet Hyperlinks spécifié.

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