Hallo,

ein Autor hat in seinem Word-Text externe Hyperlinks gesetzt. Das sind aber keine URLs, sondern Verweise auf seine interne Festplatte C. Keine Ahnung wie die da rein gekommen sind.

Beim Import in InDesign erscheinen jetzt diese Hyperlinks gesondert ausgezeichnet. In Word kann man jeden Hyperlink mit der rechten Maustaste anwählen und dann entfernen.

Leider geht das nicht für größere Textpassagen mit mehreren Hyperlinks gleichzeitig und eine globale Funktion alle Hyperlinks löschen habe ich nicht gefunden. Die Hilfe schweigt sich dazu ebenfalls aus.

Weiß jemand Rat?

Gruß

Hallo,

mit nachfolgendem Makro kann man alle Hyperlinks im Dokumentteil (also außer Kopf-/Fußzeilen) löschen:

Sub AlleHyperlinksAufloesen()
Dim HL As Hyperlink
For i = ActiveDocument.Hyperlinks.Count To 1 Step -1
ActiveDocument.Hyperlinks(i).Delete
Next i
End Sub

Hallo Peppi,

vielen Dank, das funzt so. Sehr gut.

Aber kann ich das auch dauerhaft speichern? Sorry, bin nun überhaupt nicht der Makro-Experte unter Win. Ich habe in Word den Visual-Basic-Editor aufgerufen und da in das geöffnete Dokument das Script per copy-and-paste eingefügt. Ausführen bei offenem Dokument klappt prima.

Aber wie kann ich das für andere Dokumente speichern? Der Export erzeugt eine Klassenbibliothek, die ich aber nicht in andere Word-Dokumente importieren oder ausführen kann. Ein Tip wäre sicherlich nochmal hilfreich.

Gruß

Hallo,

wenn Du dieses Makro in der Normal.dot speicherst, steht es Dir immer zur Verfügung. Also, das Menü Extras | Makro | Makros aufrufen, als Namen z.B. AlleHyperlinksEntfernen vergeben, darauf achten, daß es in der Normal.dot zur Verfügung steht, dann auf die Schaltfläche [Erstellen] klicken und den Text, der zwischen Sub und End Sub steht, an Cursorposition einfügen - also diesen hier:
Dim HL As Hyperlink
For i = ActiveDocument.Hyperlinks.Count To 1 Step -1
ActiveDocument.Hyperlinks(i).Delete
Next i

Anschließend kannst Du das Makro auf eine Schaltfläche in einer Symbolleiste legen und hast es immer "griffbereit"...

Hallo,

nochmals danke, so geht es jetzt.

Gruß