Random Sorting

[KelliC]

Is there any way to randomly sort text in Word 2003?

 

[Greg Maxey]

Found this in Google. Try:


Sub RandomWords()
Dim myArray() As String, myTemp As String
Dim Index As Long, OtherIndex As Long

If Selection.Type = wdSelectionIP Then
MsgBox "Please select some words"
Exit Sub
End If

myArray = Split(Selection.Text)
Randomize
For Index = 0 To UBound(myArray)
OtherIndex = Rnd * UBound(myArray)
myTemp = myArray(Index)
myArray(Index) = myArray(OtherIndex)
myArray(OtherIndex) = myTemp
Next Index

Selection.Text = Join(myArray)
End Sub

 

[Jezebel]

Another method, that doesn't involve code and let's you experiment: copy the
text and paste into an Excel spreadsheet. Insert a column. Select an
arbitrary substring from each item of text eg =Mid(A1,6,4) to take 4
characters starting with the sixth. Sort on that column. Copy and paste back
into Word.