Delete Section breaks from a document

[Solrac3030]

I'm trying to write a macro that would delete all the section breaks in a
document.

 

[Helmut Weber]

Hi Solrac3030,

I'm trying to write a macro that would delete all the section breaks in a
document.

like that:

Sub M2x()
Dim rTmp As Range
Set rTmp = ActiveDocument.Range
With rTmp.Find
.Text = "^b"
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
End With
End Sub

But I wonder, whether you like the result.

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP