Page Breaks

M

mmikedm1000

Is there a way to use a macro delete page breaks that occur before a Heading
2 or Heading 3?

Thanks for any help,
 
G

Greg Maxey

Try:

Sub Test()
Dim oRng As Word.Range
Set oRng = ActiveDocument.Content
With oRng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "^m"
.Wrap = wdFindStop
While .Execute
If oRng.Paragraphs(1).Style = "Heading 2" Or _
oRng.Paragraphs(1).Style = "Heading 3" Then
oRng.Delete
Else
oRng.Collapse wdCollapseEnd
End If
Wend
End With
End Sub
 
M

mmikedm1000

Greg,

This Macro works well most of the time with a few documents I recieve an
error that staes:

Object variable or with block variable not set

Do you know why this is?
I looked at the VBA help, but I did not see any variables that were not
declared.
 
Top