Add Page Break to Document

expatchic · #1 08-08-2012, 04:06 AM

Here you go:

Code:

Dim vFindText, vReplText As String
Dim vColor As String
Dim x As Integer
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
For x = 1 To 3
  Select Case x
    Case Is = 1
      vFindText = "Cat I"
      vColor = wdRed
    Case Is = 2
      vFindText = "Cat II"
      vColor = wdYellow
    Case Is = 3
      vFindText = "Cat III"
      vColor = wdPink
  End Select
  vReplText = vFindText
  With Selection.Find
    .Forward = True
    .Wrap = wdFindContinue
    .MatchWholeWord = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Format = True
    .MatchCase = False
    .Text = vFindText
    .Replacement.Text = vReplText
    .Replacement.Highlight = True
    .Execute Replace:=wdReplaceAll
    .Font.Color = vColor
  End With
Next x

Now the text is something like this:

blah blah blah blah
blah blah blah blah
one or more blank lines
Heading
Cat I (or II or III)
blah
blah
blah

This scenario repeats throughout a 600+ page document. I would like to insert a page break before each Heading...I.e. go back 2 lines. But, I would also like to check for the existence of a page break before adding another one.

I tried various forms of Do...Loop, but I got myself into an endless loop. :-)

Thank you for your help.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Delete a page after Section Break Next Page	Aston	Word	9	04-27-2022 07:38 AM
Page break formatting changes	Tom0822	Excel	1	03-19-2012 08:50 PM
Force a page break	Emaleth9999	Mail Merge	1	02-09-2012 02:36 AM
paragaph hard break, soft break and ...strange break	czomberzdaniela	Word	2	12-03-2010 06:58 PM
Page Break	Manolo	Word	0	04-29-2009 11:04 PM