remove all section breaks quickly?

[Greg Maxey]

Stephan,

Actually it needs a qualifier to keep from tripping up on a break found
outside a table:

Sub ScratchMacro()
Dim i As Long
Dim oRng As Range
Set oRng = ActiveDocument.Range
With oRng.Find
.Text = Chr(12)
While .Execute
oRng.Select
If oRng.Information(wdWithInTable) Then
oRng.MoveEnd wdCharacter, 1
oRng.Collapse wdCollapseStart
With Selection
.MoveRight Unit:=wdCharacter, Count:=1
.SplitTable
.MoveLeft Unit:=wdCharacter, Count:=1
.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
.Delete Unit:=wdCharacter, Count:=1
.Delete Unit:=wdCharacter, Count:=1
End With
Else
oRng.Delete
oRng.Collapse Direction:=wdCollapseEnd
End If
Wend
End With
End Sub

 

[Greg Maxey]

Stefan,

Actually on closer look it doesn't need to be so complicated at all. I can
only guess that using the selection is what makes it uncooperative. This
seems to work just fine for all section breaks (in or not in a table):

Sub ScratchMacro()
Dim oRgn As Range
Set oRgn = ActiveDocument.Range
With oRgn.Find
.Text = Chr(12)
While .Execute
oRgn.Delete
oRgn.Collapse Direction:=wdCollapseEnd
Wend
End With
End Sub

 

[Stefan Blom]

That's even better. Hopefully the OP is still monitoring this thread.

 

[mcarpeneto]

Thanks, Greg
Your code worked for me.

Stefan,

Actually on closer look it doesn't need to be so complicated at all. I can
only guess that using the selection is what makes it uncooperative. This
seems to work just fine for all section breaks (in or not in a table):

Sub ScratchMacro()
Dim oRgn As Range
Set oRgn = ActiveDocument.Range
With oRgn.Find
.Text = Chr(12)
While .Execute
oRgn.Delete
oRgn.Collapse Direction:=wdCollapseEnd
Wend
End With
End Sub

 

[lflea]

I copied an Adobe document into Word and now the section breaks are all over
the place leaving me with very ragged and rambling text. I can delete the
section breaks one at a time but there are thousands. Can I delete them all
(without deleting the text - done that already!), or align the text? Thanks.

 

[Suzanne S. Barnhill]

Are these actually section breaks or line breaks?

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
http://word.mvps.org