List Randomizer Macro for Word 2010

Question

Way back with Word '97 one of my students wrote a convenient macro for randomizing lists of words.
Briefly, the list was highlighted and the Macro button (or keystrokes) pushed - and the list was nicely randomized.
I do not have this Macro anymore and need a similar one for Office 2010 32 bit (MS Word only).
Note: I am well aware of online randomizers as well as using Excel to randomize a list. However, I wish to eliminate time/energy wasted steps and randomize word lists within Word 2010 itself.
Any suggestions?

Answer 1

One approach is:
Sub Demo()
Dim Rng As Range, i As Long
Dim StrIn As String, StrOut As String, StrTmp As String
Randomize Timer
Set Rng = Selection.Range
StrIn = Rng.Text
StrIn = Trim(StrIn) & " "
While UBound(Split(StrIn, " ")) > 0
  i = UBound(Split(StrIn, " "))
  StrTmp = Split(StrIn, " ")(Rnd(i)) & " "
  StrOut = StrOut & StrTmp
  StrIn = Replace(StrIn, StrTmp, "")
Wend
StrOut = Trim(Trim(StrOut) & " " & StrIn)
Rng.Text = StrOut
Rng.Select
End Sub
The above assumes a list separated by spaces. For lists separated by paragraph breaks or tabs, insert:
StrIn = Replace(StrIn, vbCr, " ")
or:
StrIn = Replace(StrIn, vbTab, " ")
before:
StrIn = Trim(StrIn) & " "
and insert a corresponding:
StrOut = Replace(StrOut, " ", vbCr)
or:
StrIn = Replace(StrOut, " ", vbTab)
before:
Rng.Text = StrOut
Cheers
Paul Edstein
[MS MVP - Word]