Random Sorting

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

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

--
Greg Maxey
A peer in "peer to peer" support
Rockledge, FL
To e-mail, edit out the "w...spam" in

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

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.



"KelliC" wrote in message
...
Is there any way to randomly sort text in Word 2003?