asked on

How to format the scrambled paragraph

Dear Experts,

I want to know how to format a scrambled paragraph in Word 2000.The example format is given below. I want to make the lines as a continuos one. Justify command is not usefull one in this stage...what i have to do..?

"Jahan. This is what
is misinterpreted. (As
that the structure itself
was procured.) As soon
as construction began,
it was noticed by the
European travellers
who visited Norway and
the "

ASKER CERTIFIED SOLUTION

HotPink

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

calacuccia

Hi HotPink,

Welcome to Experts-Exchange, I hope you'll find this site very enjoyable and knowledgeable as an expert participating.

As one of your fellow experts in the Office topic area, I just wanted to point out to you that although Experts-Exchange provides the option to choose between posting your solutions as comments or answers, in this Topic Area (MSOffice) we have completely abandonned the use of the 'Answer' option, unless in very special occasions.

The question asker can choose between all the comments to his/her question, so multiple contributions can often lead to a conclusion. Also, the questions which are in the 'Locked Questions' area (this is the place where all questions where someone 'answered' by using the 'Anser' option are positioned), are almost completely left unvisited by other questions, as it is not in the normal list of questions anymore.

Just a recommendation.
calacuccia

Triskelion

First select your text then...

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 8/14/01 by THines01
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^l"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Triskelion

I recorded that macro using the special characters feature in the find/replace dialog box.

Edit -> Replace ->
Find What = ^l (manual line break)

Then the same thing on the ^p (paragraph break)

shanraj

ASKER

Thank you very much Hot pink...the first solution is what i want.......

bye

Shanraj