Hallo zusammen,
ich bin VBA/Programmieranfängerin und möchte folgendes implementieren:
Hyperlinks auf andere Dokumente sollen erkannt werden, und am besten mit der zugehörigen Seitenzahl angegeben werden. Dafür habe ich bereits ein paar Zeilen geschrieben, scheint sogar größtenteils zu funktionieren.
Bei den Hyperlinks soll zwischen Internen und Externen unterschieden werden. Externe Links sollen in schwarzer, fett gedruckter Schrift erscheinen, die Internen sollen aber ganz normal erhalten bleiben. Wäre super, falls jemand eine Idee hat wie man das angehen könnte.
Vielen Dank im Voraus! :-)
Hier der bisherige Code:
Sub HyperlinksSuchen()
'Shape Variable deklarieren für Zugriff auf Grafikobjekt
Dim sh As Shape
Dim s As String
'Schleife, die alle Shape-Objekte in aktiven Dokument abarbeitet;
'grade in Bearbeitung stehendes Objekt an ExistHyper übergeben
'ExistHyper: prüfen, ob hinter Shape Hyperlink eingefügt wurde
'wenn ja, steht in Var s LinkAdresse des Hyperlinks
For Each sh In ActiveDocument.Shapes
If ExistHyper(sh) Then
s = s + Chr(13) & sh.Hyperlink.Address & " in " & sh.Name 'Name: Shape-Objekt, hinter dem der Hyperlink eingefügt wurde
Else
End If
Next sh
MsgBox "Folgende Hyperlinks sind vorhanden" & Chr(13) & s 'Chr(13) = Zeilenumbruch
End Sub
Function ExistHyper(sh As Shape) As Boolean
On Error GoTo fehler
Dim s As String
s = sh.Hyperlink.Name
If s <> "" Then
ExistHyper = True
Exit Function
Else
End If
fehler:
ExistHyper = False
End Function
|