Freigeben über

Hyperlink.Address-Eigenschaft (Publisher)

  • Artikel

Zurückgeben oder Festlegen einer Zeichenfolge, die die URL-Adresse für einen Hyperlink darstellt. Lese-/Schreibzugriff.

Syntax

Ausdruck. Adresse

Ausdruck Eine Variable, die ein Hyperlink-Objekt darstellt.

Rückgabewert

Zeichenfolge

Beispiel

Dieses Beispiel zeigt die URL-Adressen für alle Hyperlinks in der aktiven Publikation an.

Sub ShowHyperlinkAddresses() 
 Dim pgsPage As Page 
 Dim shpShape As Shape 
 Dim hprLink As Hyperlink 
 Dim intCount As Integer 
 For Each pgsPage In ActiveDocument.Pages 
 For Each shpShape In pgsPage.Shapes 
 If shpShape.TextFrame.TextRange.Hyperlinks.Count > 0 Then 
 For Each hprLink In shpShape.TextFrame.TextRange.Hyperlinks 
 MsgBox "This hyperlink goes to " & hprLink.Address & "." 
 intCount = intCount + 1 
 Next hprLink 
 ElseIf shpShape.Hyperlink.Address <> "" Then 
 MsgBox "This hyperlink goes to " & shpShape.Hyperlink.Address & "." 
 intCount = intCount + 1 
 End If 
 Next shpShape 
 Next pgsPage 
 If intCount < 1 Then 
 MsgBox "You don't have any hyperlinks in your publication." 
 Else 
 MsgBox "You have " & intCount & " hyperlinks in " & ThisDocument.Name & "." 
 End If 
End Sub

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.