Hyperlinks per Makro entfernen

Hallo,

für meine Berichte übernehme ich öfters Texte aus Online-Lexika.
Diese sind logischerweise gespickt mit Hyperlinks.
Für meine Berichte kann ich aber die Hyperlinks nicht brauchen.

Kann man mit einem Schlag alle Hyperlinks entfernen?
Dachte da an das integrierte VB und Makros.
Der Text des Hyperlinks sollte zwar schon noch übrigbleiben, nur die Verlinkungs-Funktion soll entfernt werden.

So, wie man es manuell mit Rechtsklick > „Hyperlink entfernen“
machen kann. Aber bei 50 Links im Text ist der Spaß vorbei…

Gruß, Andi

Hat sich erledigt
Geht mit folgendem Makro-Code (falls jemanden interessiert):

Sub _Makroname_()

Dim i As Long
With ActiveDocument
For i = 1 To .Hyperlinks.Count
.Hyperlinks(1).Delete
Next i
End With

End Sub

Geht auch so: Absatz mit den hyperlinks markieren und „shift + Strg + F9“ drücken.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

1 „Gefällt mir“

Grandios! (@Andreas + @Peter)
Sowas habe ich schon lange gesucht.

Gruß Gudrun

KRASS! sag ich da nur
…bin jetzt wirklich baff…

strg+shift+f9

das muss ich mir merken…

Danke dir!
Andi