Insert manual page breaks

gmayor · #1 07-30-2015, 09:06 PM

You could run the replacement from a macro via a button on the ribbon, which you may consider more elegant? See http://www.gmayor.com/installing_macro.htm

Code:

Sub AddPageBreaks()
Const strFind As String = "---Break---"
Dim oRng As Range
    Set oRng = ActiveDocument.Range
    With oRng.Find
        Do While .Execute(strFind)
            oRng.Text = ""
            oRng.InsertBreak wdPageBreak
            oRng.Collapse 0
        Loop
    End With
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Hidden page breaks and section breaks	jrasicmark	Word	3	06-02-2014 11:28 PM
Remove Manual Line Breaks not working	dvdb	Word	2	03-28-2014 12:51 PM
Insert section breaks in a protected document	MS help	Word	2	03-09-2014 05:27 PM
Page breaks and page numbering	sfteam	Word	3	06-06-2013 11:56 PM
Deleted Section Breaks Changes Page Breaks	Brantnshellie	Word	0	02-01-2009 09:22 PM