Sorting Text

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



Comments

  • This macro contains a nasty bug

    Posted by Legacy on 04/29/1999 12:00am

    Originally posted by: Chad Loder

    This macro contains a nasty bug. I believe that if
    the document is read only, the bubble sort may never
    exit (when the lines aren't already in order). This
    is because the lines don't get swapped (read only!),
    hence they stay out of order and the loop never exits.

    I have a better sort macro that first stores all the
    lines in the selection in a vector, then sorts them
    in memory using quicksort, then writes them all at
    once. This avoids the read only problem and is much
    faster because the sorting happens in memory, not in
    the live document.

    Reply
  • Works, leaves blank window but just press END

    Posted by Legacy on 02/22/1999 12:00am

    Originally posted by: Lee Patterson

    After the macro has run, your window will probably be blank. 
    
    Just press END and the text will all reappear.

    Reply
  • macro left the source file blank

    Posted by Legacy on 02/13/1999 12:00am

    Originally posted by: ljp

    Curious effect. Left my test source page totally blank.....

    Reply
Leave a Comment
  • Your email address will not be published. All fields are required.

Top White Papers and Webcasts

  • Best-in-Class organizations execute on a strategy that supports the multi-channel nature of customer requests. These leading organizations do not just open up their service infrastructures to accommodate new channels, but also empower their teams to deliver an effective and consistent experience regardless of the channel selected by the customer. This document will highlight the key business capabilities that support a Best-in-Class customer engagement strategy.

  • Live Event Date: September 17, 2014 @ 1:00 p.m. ET / 10:00 a.m. PT Another day, another end-of-support deadline. You've heard enough about the hazards of not migrating to Windows Server 2008 or 2012. What you may not know is that there's plenty in it for you and your business, like increased automation and performance, time-saving technical features, and a lower total cost of ownership. Check out this upcoming eSeminar and join Rich Holmes, Pomeroy's practice director of virtualization, as he discusses the …

Most Popular Programming Stories

More for Developers

Latest Developer Headlines

RSS Feeds