Microsoft Office Forums - View Single Post - Converted PDF to Word

kilroy · 07-10-2018, 05:52 AM

Rick when ever I'm opening a PDF in word I first run text recognition in Adobe or BlueBeam and then when I have extra page breaks I run the following macro to remove all breaks:

Code:

Sub DeletePageBreaks()
Dim arr() As Variant
Dim i As Byte
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
arr = Array("wdSectionBreakContinuous", "^m", "^n", "^b")
  For i = LBound(arr) To UBound(arr)
    With Selection.Find
      .Text = arr(i)
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
  Next
End Sub