Siva Lokanathan wrote:

>I have a list of several lines. The separation between the lines is too much,
>some having 1 and other having 2 or 3 paragraph marks.
>
>I shall appreciate help on how to strip the document and arrange it so that
>the lines have 'line spacing" of only one line.
>
>        Thanks                   Siva Lokanathan
>
>             Do you want to signoff PCSOFT or just change to
>                    Digest mode - visit our web site:
>                   http://freepctech.com/pcsoft.shtml
>
>
>
Try the following macro. Give it an icon and put it on a toolbar so that
it is easily accessable.

Orf Bartrop

Sub DelLine()
'
' DelLine Macro
' Macro recorded 22/07/99 by Orf Bartrop
' This macro will delete blank lines
' Run the macro several times if all blank lines are not removed
'
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p^p"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

      "Hold No Punches.." Rode brings you great shareware/freeware
        programs with his honest opinions in this weekly column.
                       http://freepctech.com/rode