Page Breaks

[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,

 

[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

 

[mmikedm1000]

Thank you Greg,

It worked perfectly

 

[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.