Looking for a randomization macro in Word 365

[tripeptide]

Not sure if this is the best use of this forum, but: Good morning all. I am looking for someone to create a custom macro for me. Background: I use notecards to study and have several different tests. I have a template to make notecards in word (see attached example please), like, thousands of them in different documents.




They all follow the same general layout, with an even page as the front and the next odd page as the back.


Is there someone that can come up with a macro to randomize the pages such that the even pages are randomized and the next odd page always follows?

Thanks!


-Tripeptide

[Guessed]

This concept appears to work IF a heading is the trigger for each block of pages (ie a paragraph which has an outline level other than body text).

Sub RandomSortOfChap()
  Dim aPar As Paragraph
  'Add random numbers on headings
  For Each aPar In ActiveDocument.Paragraphs
    If aPar.Range.ParagraphFormat.OutlineLevel <> wdOutlineLevelBodyText Then
      aPar.Range.InsertBefore Left(Rnd(1) * 100000, 4) & vbTab
    End If
  Next aPar
  'Now sort based on the random number
  ActiveWindow.ActivePane.View.Type = wdOutlineView
  ActiveWindow.View.ShowHeading 5     'show five levels of headings
  Selection.Sort FieldNumber:="Paragraphs", SortFieldType:=wdSortFieldAlphanumeric
  ActiveWindow.ActivePane.View.Type = wdPrintView
  'And remove the numbers
  ActiveDocument.Range.Select
  WordBasic.ToolsBulletsNumbers Replace:=0, Type:=1, Remove:=1
End Sub