Help cleaning up bad paragraph breaks

Windows XP Pro SP2
MS Word 2003 SP3

I have inherited a document that was originally created in Notepad and has
paragraphs that look like the psuedo-paragraphs below:

xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx
xxxx xx xxxxx x xxx^p
xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx
xxxx xx xxxxx x xxx^p
xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx
xxxx xx xxxxx x xxx^p

xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx
xxxx xx xxxxx x xxx^p
xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx
xxxx xx xxxxx x xxx^p
xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx
xxxx xx xxxxx x xxx^p

xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx
xxxx xx xxxxx x xxx^p
xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx
xxxx xx xxxxx x xxx^p
xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx
xxxx xx xxxxx x xxx^p

I'm looking for a fast way to remove the unnecessary paragraph breaks while
preserving a blank line between the actual intended paragraphs.

I've written a macro that will do this on a selection, but I can only do it
one small selection at a time as the macro will also delete the blank line
between the intended paragraphs.

Any ideas?

Thanks!

-gk-

Doug
Fri Jan 11 12:52:53 PST 2008

Use

Dim para As Paragraph
Dim prange As Range
For Each para In ActiveDocument.Paragraphs
If para.Format.SpaceAfter = 0 Then
Set prange = para.Range
With prange
.start = .End - 1
.Text = " "
End With
End If
Next


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Sandusky" <sandusky40@gmail.com> wrote in message
news:13ocv5cqqb2o7e6@corp.supernews.com...
> Windows XP Pro SP2
> MS Word 2003 SP3
>
> I have inherited a document that was originally created in Notepad and has
> paragraphs that look like the psuedo-paragraphs below:
>
> xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx
> xxxx xx xxxxx x xxx^p
> xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx
> xxxx xx xxxxx x xxx^p
> xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx
> xxxx xx xxxxx x xxx^p
>
> xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx
> xxxx xx xxxxx x xxx^p
> xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx
> xxxx xx xxxxx x xxx^p
> xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx
> xxxx xx xxxxx x xxx^p
>
> xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx
> xxxx xx xxxxx x xxx^p
> xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx
> xxxx xx xxxxx x xxx^p
> xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx
> xxxx xx xxxxx x xxx^p
>
> I'm looking for a fast way to remove the unnecessary paragraph breaks
> while
> preserving a blank line between the actual intended paragraphs.
>
> I've written a macro that will do this on a selection, but I can only do
> it
> one small selection at a time as the macro will also delete the blank line
> between the intended paragraphs.
>
> Any ideas?
>
> Thanks!
>
> -gk-
>
>
>