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.
Method 1: Remove Page Breaks Manually
- 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.
- Next, select a page break and press “Delete” to get rid of it.
- Or you can click to the left of a page break and then press “Delete”.
Method 2: Use “Find and Replace” Feature
- To begin with, press “Ctrl+ H” to trigger “Find and Replace” box.
- Then place cursor inside “Find what” text box and click “More” tab.
- Next click “Special” and choose “Manual Page Break” on that menu.
- 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
- First off, trigger VBA editor in Word by pressing “Alt+ F11”.
- Next click “Normal” project on the left column.
- Then click “Insert” on the menu bar and select “Module”.
- 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
- Lastly, hit “F5” to execute codes.
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.
- To install and run a macro, you can refer to steps in method 3.
- 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.
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