Find a heading and remove the section break following it

[Vidya]

I need help with a find macro which searches for all 'Heading 1" in a
document and then searches for the first section break following it and
deletes the section break. There are other section breaks as well in the
document, I want to retain them. Kindly help.

 

[Tony Jollans]

Try this:

With ActiveDocument.Range: Do
With .Find
.ClearFormatting
.Style = ActiveDocument.Styles(wdStyleHeading1)
If Not .Execute("") Then Exit Do
End With
.Collapse wdCollapseEnd
With .Find
.ClearFormatting
If Not .Execute("^b", ReplaceWith:="", Replace:=wdReplaceOne)
Then Exit Do
End With
Loop: End With

 

[Vidya]

Hi,

Its working perfectly. I was struggling with two searches, unable to loop
them properly.

Thanks a lot for the help.

Regards,
Vidya