Sub PDFHyphenRemover()
' Paul Beverley - Version 28.10.19
' Finds all end-of-line hyphens, joining back to the next word

Set rng = ActiveDocument.Content
With rng.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Text = "-^p"
  .Wrap = wdFindStop
  .Replacement.Text = ""
  .Forward = True
  .MatchWildcards = False
  .Execute
End With

myCount = 0
Do While rng.Find.Found = True
  rng.Delete
  rng.End = rng.End + 20
  spPos = InStr(rng, " ")
  Set rng2 = ActiveDocument.range(rng.Start + spPos - 1, rng.Start + spPos)
  If spPos > 0 Then
    rng2.Text = vbCr
  End If
  rng.Collapse wdCollapseEnd
  rng.Find.Execute
Loop
Beep
End Sub