Hyperlinks-Objekt (Publisher)

  • Artikel

Stellt die Auflistung von Hyperlink der Objekte in einem Textbereich.

HinwBemerkungeneise

Verwenden Sie die TextRange.Hyperlinks-Eigenschaft , um die Hyperlinks-Auflistung zurückzugeben.

Verwenden Sie das Hinzufügen Methode, die einen Hyperlink erstellen und der Hyperlinks -Auflistung hinzugefügt.

Verwenden Sie Hyperlinks (Index), wobei index die Indexnummer ist, um ein einzelnes Hyperlink-Objekt in einer Veröffentlichung, einem Bereich oder einer Auswahl zurückzugeben.

Die Count -Eigenschaft für diese Auflistung gibt nur die Anzahl von Hyperlinks in der angegebenen Form oder Auswahl zurück.

Beispiel

Im folgenden Beispiel werden alle Textlinks in der aktiven Publikation gelöscht, die das Wort Tailspin in der Adresse enthalten.

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

Im folgenden Beispiel wird ein neuer Link zur angegebenen Website erstellt.

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

In diesem Beispiel wird die Adresse für den ersten Hyperlink auf, wenn die angegebene Auswahl Hyperlinks enthält.

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

Methoden

Eigenschaften

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.