Solved: Justification of text.

Hi! Friends,

I have some ASCII files and when I convert the same to Word file, it does not get justified untill the hard carriage return is removed in each line.

I want to know is there any easy method to justify the whole file. Alternatively I would like to have a Macro, on selection of a paragraph, it should remove the carraige returns and justify the text.

Can I expect some help please.

Regards,

Prakash.

Welcome to VBAX

Are there only single para marks in your document, or are there double marks where the genuine paragraphs occur? (ie spaces between paragraphs)

Hi! Friend,

There are spaces between paragraphs. What I want is on selection of paragraph, in Macro it has to count the number of lines selected, remove the hard carriage return marks, insert one space & justify the paragraphs. It should not remove the space after the paragraphs.

Can you post a zipped sample of your text? Use the Go Advanced button and Manage Attachments.

I am sending a sample file as an attachment. It is an ASCII protected file, I have copied and pasted it to word document. Originally it is Aerial 9 pts. I have to change this to Aerial 12 pts. It will not do the justification, as there is carriage return in each line. What I am doing is, I delete the last character, insert space and Justify. In the Macro code, it should go to the end of each line and insert a space and delete the last character. When I select a paragraph, it shoiuld count number of lines selected.

Hope I am clear

Try the following; let me know how it goes.
[VBA]Sub ReplacePara()

Dim CountPara As Long

CountPara = Selection.Paragraphs.Count
MsgBox CountPara & " lines selected"

'Replace double Paras with text value
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p^p"
.Replacement.Text = "ParaBreak"
.Forward = True
End With

'Replace single paras with spaces
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "^p"
.Replacement.Text = " "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

'Replace text value with paramark having space after
Selection.Find.ClearFormatting
With Selection.Find.Replacement.ParagraphFormat
.SpaceAfter = 11
End With
With Selection.Find
.Text = "ParaBreak"
.Replacement.Text = "^p"
.Forward = True
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub


[/VBA]

Thank you dear friend It is working. I have made following few changes;

I have disabled the line count message box
I have added one line to the code in the end
"Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify"
In the last line of selection it should not remove the paragraph mark. I want to know what is the code and where to insert.
Now what is happening is, it replaces the para, justifies and the next line of the new paragraph brings to the same para. I have to enter a manual para break.

I once again thank you for the help.

Dear Friend

I have added following two line code in the end. It is working except for the last page;

Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeParagraph

Please tell me whether I am right

That looks right. You might want to format this paragraph mark to add SpaceAfter to get a visual break.

Thanks for all the help

Prakash

Hi, again, N.

If this is solved for you, please click on Thread Tools (at the top of the page) and "Mark Solved".

Thanks!