Line Randomize in MS Word

If you select the Questions and Answers and then run a macro containing the following code, it will re-arrange them in a random order:

Dim i As Long
Dim rngqna As Range
Dim rngdup As Range
Dim rngq As Range
Dim arrqna As Variant
Dim n As Long, j As Long, k As Long
Set rngqna = Selection.Range
For i = rngqna.Paragraphs.Count - 1 To 1 Step -2
    Set rngq = rngqna.Paragraphs(i).Range
    rngq.Start = rngq.End - 1
    rngq.Text = "_"
Next i
Set rngdup = rngqna.Duplicate
rngdup.End = rngdup.End - 1
arrqna = Split(rngdup.Text, vbCr)
Randomize
For n = LBound(arrqna) To UBound(arrqna)
    j = CLng(((UBound(arrqna) - n) * Rnd) + n)
    If n <> j Then
        temp = arrqna(n)
        arrqna(n) = arrqna(j)
        arrqna(j) = temp
    End If
Next n
On Error Resume Next
For k = LBound(arrqna) To UBound(arrqna)
    rngqna.Paragraphs(k + 1).Range.Text = arrqna(k) & vbCr
Next k
rngqna.MoveEnd wdParagraph, 1
rngqna.Text = Replace(rngqna.Text, "_", vbCr)