Remove the hyperlinks on paragraph marks

[alex100]

How can I remove the hyperlinks on paragraph marks, please?

What I have so far is this code...

Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("Hyperlink")
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text = "^p"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
 End With

The problem is that it will remove both the hyperlink and the paragraph. What I need is to preserve the paragraph and remove only the hyperlink.

Alex