Sorting Text

CodeGuru content and product recommendations are editorially independent. We may make money when you click on links to our partners. Learn More.

Somtimes, I want to sort a block of text. So just select it and let the bubble sort

Sub SortSelection ()

‘DESCRIPTION: Sorts Selection

    Dim win

    set win = ActiveWindow

    If win.type <> “Text” Then

        MsgBox “This macro can only be run when a text editor window is active.”

        Exit Sub

    End If
    StartLine = ActiveDocument.Selection.TopLine

    EndLine = ActiveDocument.Selection.BottomLine

    If EndLine < StartLine Then
        Temp = StartLine
        StartLine = EndLine
        EndLine = Temp
    End If

    EndLine = EndLine - 1

    If StartLine > EndLine Then

        Exit Sub

    End If
    bStop = false
    Do While Not bStop

        bStop = true

        For i = StartLine  To EndLine

            ActiveDocument.Selection.GoToLine i

            ActiveDocument.Selection.SelectLine

            FirstLine = ActiveDocument.Selection
            ActiveDocument.Selection.GoToLine i + 1

            ActiveDocument.Selection.SelectLine

            SecondLine = ActiveDocument.Selection
            If FirstLine > SecondLine Then

                bStop = false

                ActiveDocument.Selection.GoToLine i

	            ActiveDocument.Selection.StartOfLine

	            ActiveDocument.Selection.MoveTo i + 1, dsEndOfLine, dsExtend

                ActiveDocument.Selection = SecondLine +  FirstLine

	            ActiveDocument.Selection.EndOfLine

	            ActiveDocument.Selection.Delete

            End If

        Next

    Loop

    ActiveDocument.Selection.GoToLine StartLine

    ActiveDocument.Selection.StartOfLine

    ActiveDocument.Selection.MoveTo EndLine + 1, dsEndOfLine, dsExtend

End Sub

Date Last Updated: February 12, 1999