Hi,

I've had a look around and a bit of a play.

The following code seems to do what I'm looking for, but can't handle 'Page Break' and thus keeps adding 'Enter' until I end the macro.


Application.ScreenUpdating = False
Selection.HomeKey Unit:=wdStory
Do
Selection.EndKey Unit:=wdLine
If Selection.End >= ActiveDocument.Content.End - 1 Then
Exit Do
End If
If Asc(Selection) <> 13 Then
Selection.InsertParagraphAfter
End If
Selection.MoveDown Unit:=wdLine
Loop
Application.ScreenUpdating = True

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find

.Text = "^p"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False


.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll

End With

Please if anyone can help me get past the 'Page Break', that will help me complete my goal.

Thanks in advance,

Scratch my last post, the results are very inconsistent, it's doing some pages and leaving others.

Please help