An unfortunate side-effect of deleting ‘Continuous’ Section breaks in Word is that they tend to cause the preceding ‘Next Page’ Section break to be converted to a ‘Continuous’ Section break. A workaround is to insert ‘Next Page’ Section breaks both sides of the ‘Continuous’ Section break, then select all three breaks and delete them together. The following macro automates the process:
Code:
Sub DelContBrk()
Application.ScreenUpdating = False
Dim Rng As Range
With Selection.Sections.First
Set Rng = .Range.Characters.Last
With Rng
.InsertBreak Type:=wdSectionBreakNextPage
.Start = .Start - 1
.End = .End + 1
.Characters.Last.Next.InsertBreak Type:=wdSectionBreakNextPage
.End = .End + 1
.Text = vbNullString
End With
End With
Application.ScreenUpdating = True
End Sub