Replace double-paragraphs

[Guessed]

Try this

  Dim aHL As Hyperlink, sText As String
  For Each aHL In ActiveDocument.Hyperlinks
    sText = aHL.Range.Text
    sText = Replace(sText, Chr(13), "")
    aHL.TextToDisplay = sText
  Next aHL
  With ActiveDocument.Content.Find
    .Execute FindText:="^p^p", ReplaceWith:="^p", Wrap:=wdFindStop, Replace:=wdReplaceAll
  End With