4 Quick Methods to Remove Unwanted Page Breaks in Your Word Document

In this post, we will focus on introducing 4 quick methods to you to remove unwanted page breaks in your Word document.

Word inserts automatic page break when it jumps from one page to next. Besides, you can insert manual page break following the end of a range of text. Then you will start text at the top of next page. For how to insert manual page break, you can refer to this article: 5 Ways to Quickly Insert Page Breaks into Your Word Document

However, you ought to understand that automatic page breaks are invisible and thus cannot be deleted manually. But the manual page breaks inserted do. So our article will mainly offer you useful approaches to remove unwanted manual page breaks in Word document.   Remove Unwanted Page Breaks in Your Word Document

Method 1: Remove Page Breaks Manually

  1. First of all, you have to click the “Show/Hide” command under “Home” tab to reveal all hidden marks and symbols in document so you can view the page break.
  2. Next, select a page break and press “Delete” to get rid of it.
  3. Or you can click to the left of a page break and then press “Delete”.Select Page Break ->Press "Delete"

Method 2: Use “Find and Replace” Feature

  1. To begin with, press “Ctrl+ H” to trigger “Find and Replace” box.
  2. Then place cursor inside “Find what” text box and click “More” tab.
  3. Next click “Special” and choose “Manual Page Break” on that menu.Click "Special"->Select "Manual Page Break"
  4. Finally, leave “Replace with” box empty and click “Replace All” to remove each page break in document.

Method 3: Run Macro to Delete All Page Breaks in a Document

  1. First off, trigger VBA editor in Word by pressing “Alt+ F11”.
  2. Next click “Normal” project on the left column.
  3. Then click “Insert” on the menu bar and select “Module”.Click "Normal"->Click "Insert"->Click "Module"
  4. Open the module with double click and paste following codes there:
Sub DeleteAllPageBreaksInOneDoc()
  Application.ScreenUpdating = False
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "^m"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute Replace:=wdReplaceAll
    End With
  End With
  MsgBox ("All manual page breaks in the document have been removed!")
 
  Application.ScreenUpdating = True
End Sub
  1. Lastly, hit “F5” to execute codes.Paste Codes->Click "Run"

Method 4: Delete All Page Breaks in All Documents in a Folder

To remove all page breaks in all documents in a folder, you can utilize this method.

  1. To install and run a macro, you can refer to steps in method 3.
  2. And remember to replace with this macro below:
Sub DeleteAllPageBreaksInAFolder()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
 
  Application.ScreenUpdating = False
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first!"
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
 
    With Selection
      .HomeKey Unit:=wdStory
      With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "^m"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
      End With
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
  Application.ScreenUpdating = True
End Sub

The macro shall trigger the “Browse” window. Select a folder which contains your target documents and click “OK” to proceed.

Prepare for Data Disaster

Many of you have been aware of the randomness of data loss. For Word users, it’s also advisable to be well prepared for any data disaster. And one of the best ways is to obtain a docx repair tool in advance.

Author Introduction:

Vera Chen is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including xlsx recovery and pdf repair software products. For more information visit www.datanumen.com

Leave a Reply

Your email address will not be published.