Hyperlinks in word (VBA)

Hannah, Donnerstag, 12.04.2018, 09:06 (vor 164 Tagen)

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! :-)

 
 
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
 

gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum