Hyperlinks-Objekt (Publisher)
Stellt die Auflistung von Hyperlink der Objekte in einem Textbereich.
Hinweise
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.