title image


Smiley Verzeichnis von Hyperlinks


Gruß, Chris









Option Explicit





Sub Hyperlinks1()

    

    Dim aHyperlink   As Hyperlink

    Dim strErgebnis  As String

    

    

    strErgebnis = vbNewLine & vbNewLine

    strErgebnis = strErgebnis & "Hyperlink-Liste" & _

                  vbNewLine

    

    For Each aHyperlink In ActiveDocument.Hyperlinks

       strErgebnis = strErgebnis & _

                     aHyperlink.Range.Text & _

                     ": " & _

                     aHyperlink.Address & _

                     vbNewLine

    Next

    

    Selection.EndKey unit:=wdStory

    Selection.TypeText strErgebnis

    

End Sub









Code eingefügt mit Syntaxhighlighter 2.4





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: