Thema Datum  Von Nutzer Rating
Antwort
Rot Hyperlinks in word
 11.04.2018 10:11:29 Hannah
NotSolved
12.04.2018 09:54:58 Gast84049
NotSolved
12.04.2018 09:57:57 Hannah
NotSolved
12.04.2018 11:01:07 Gast83821
NotSolved
12.04.2018 12:47:44 Gast46215
*****
NotSolved
13.04.2018 10:06:29 Hannah
NotSolved
13.04.2018 13:47:38 Gast39245
NotSolved
19.04.2018 15:16:03 Hannah
NotSolved

Ansicht des Beitrags:
Von:
Hannah		 Datum:
11.04.2018 10:11:29		 Views:
1175		 Rating:
     
Antwort:
  Ja
Thema:
Hyperlinks in word

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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Hyperlinks in word
 11.04.2018 10:11:29 Hannah
NotSolved
12.04.2018 09:54:58 Gast84049
NotSolved
12.04.2018 09:57:57 Hannah
NotSolved
12.04.2018 11:01:07 Gast83821
NotSolved
12.04.2018 12:47:44 Gast46215
*****
NotSolved
13.04.2018 10:06:29 Hannah
NotSolved
13.04.2018 13:47:38 Gast39245
NotSolved
19.04.2018 15:16:03 Hannah
NotSolved