Microsoft Office Forums - View Single Post - Replace double-paragraphs

Guessed · 07-20-2020, 03:38 PM

Try this

Code:

  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