Hyperlink drucken

22/01/2009 - 15:08 von Edi Bauer | Report spam
Hallo NG,

gibt es eine Möglichkeit alle Links die in einem Dokument aufgeführt sind
auszudrucken. Nicht die Seiten die mit den Links aufgerufen werden, sondern
der angezeigte Text und die Adresse die sich hinter dem Link verbirgt.

Vielleicht gibt es eine Möglichkeit mit VBA?

Vielen Dank für Tipps

Edi
 

Lesen sie die antworten

#1 Christian Freßdorf
22/01/2009 - 15:26 | Warnen spam
Hi,

mit nachstehendem Makro erzeugst du ein ausdruckbares Dokument mit den
Links:

Sub ListHyperlinks()
Dim oDoc As New Document
Dim sLink As String
Dim HL As Hyperlink
For Each HL In ActiveDocument.Hyperlinks
sLink = sLink & "Anzeigetext: " & HL.TextToDisplay & vbTab & "Ziel: " &
HL.Address & vbCrLf
Next HL
oDoc.Range.InsertAfter sLink
End Sub


Gruß Christian
~~~~~~~~~~~~
Antworten / Rückmeldungen nur in die NG!
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)

Ähnliche fragen