Hi,



I was looking for some help with a vba macro please.

I need to find an automated way to add Shift+Enter at the beginning of each line in a document.

I found some code that adds char160 at the end of a line that has a space on the end, but this is not consistent and also misses lines that have a comma on the end.

The reason for the Shift+Enter is to allow the text to then be justified correctly.

Please, any help with this would be greatly appreciated.

Thank you

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