List Randomizer Macro for Word 2010

[incurablegeek]

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?

Please forgive me if this question is not appropriate for this thread.

 

[tusharm]

The code below separates the selection by paragraphs (or line breaks). Then, it randomizes the paragraphs and, finally, replaces the selection with the randomized content. Obviously, the paragraphs may be single words, phrases, or long, drawn out sentences.

Select the words / phrases you want to randomize, then run RandomizeSelection.

The code borrows heavily from the code at Random Selection

Option Explicit

Sub Swap(ByRef Arr As Variant, ByVal I As Long, ByVal j As Long)
        Dim temp As Variant
        temp = Arr(I): Arr(I) = Arr(j): Arr(j) = temp
        End Sub

Sub RandomSelect(ByRef Arr As Variant, ByVal N As Long)
        'Returns N elements out of m, the size of Arr. _
         The lower N elements of the array will contain the _
         unique random values
    Dim I As Long, thisIdx As Long
    'Need edits to ensure Arr is an acceptable data type. _
     Similarly, validate n
    For I = 1 To N
        thisIdx = LBound(Arr) + (I - 1) _
            + Int((UBound(Arr) - (LBound(Arr) + (I - 1)) + 1) * Rnd())
        Swap Arr, LBound(Arr) + (I - 1), thisIdx
        Next I
    End Sub

Sub RandomizeSelection()
    Dim Sel: Sel = Split(Replace(Selection, Chr(11), Chr(13)), Chr(13))
    If Sel(UBound(Sel)) = "" Then ReDim Preserve Sel(UBound(Sel) - 1)
    Randomize
    RandomSelect Sel, UBound(Sel) - LBound(Sel) + 1
    Selection = Join(Sel, Chr(13))
    Stop
    End Sub

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?

Please forgive me if this question is not appropriate for this thread.