Office: Hyperlinks

Alle Hyperlinks auf einmal entfernen. Wie geht das?

 

Hallo Red Bull -

Vielleicht findest Du hier eine Lösung (Makro von Wordmouse). Bei Wikipedia-Texten bleibt die blaue Farbe und die Unterstreichung, aber die kann man ja auch leicht auf einen Schlag entfernen. Oder man baut auch das ins Makro ein und erhält folgenden

Code:

Sub HyperlinksEntfernen()
Dim hyp As Integer
    For hyp = 1 To ActiveDocument.Hyperlinks.Count
        ActiveDocument.Hyperlinks(1).Delete
    Next hyp
    Selection.WholeStory
    With Selection.Font
        .Underline = wdUnderlineNone
        .Color = wdColorAutomatic
    End With
    Selection.HomeKey Unit:=wdStory
End Sub

Frage an die Experten: Wie müßte der Code denn lauten, wenn Farbe und Unterstreichungen nur aus den (ehemaligen) Hyperlinks, nicht aber aus dem gesamten Text verschwinden sollen?