Partager via

Objet Hyperlinks (Publisher)

  • Article

Représente la collection de liens hypertexte objets d'une plage de texte.

Remarques

Utilisez la propriété TextRange.Hyperlinks pour renvoyer la collection Hyperlinks .

Utilisez Ajouter méthode pour créer un lien hypertexte et l'ajouter à la collection Hyperlinks.

Utilisez hyperlinks (index), où index est le numéro d’index, pour renvoyer un seul objet Hyperlink dans une composition, une plage ou une sélection.

La propriété Count de cette collection renvoie le nombre de liens hypertexte dans la forme ou la sélection spécifiée uniquement.

Exemple

L’exemple suivant supprime tous les liens hypertexte de texte de la composition active qui contiennent le mot Tailspin dans l’adresse.

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

L’exemple suivant crée un lien hypertexte vers le site web spécifié.

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

Cet exemple affiche l'adresse du premier lien hypertexte si la sélection spécifiée contienne des liens hypertexte.

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

Méthodes

Propriétés

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.