Looking for a randomization macro in Word 365

tripeptide · #1 01-07-2022, 09:14 AM

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 · #2 01-10-2022, 04:38 PM

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).

Code:

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
[Word VBA macro] How to open the website [languagetool.org] and check my Word document?	citroen	Word VBA	0	10-25-2020 05:07 AM
Macro to transfer data from Word to another Word document with bookmark	Jovan Yong	Word VBA	3	04-17-2018 04:27 AM
Macro to put 1 word of a MS Word file in 1 cell of a Word or Excel Table	Singh_Edm	Word VBA	6	11-13-2015 08:48 PM
Macro Question: Need help making a macro to highlight the first word in every sentence	LadyAna	Word	1	12-06-2014 10:39 PM
Word 2003 Macro problem running in Word 2010	norwood	Word VBA	2	02-03-2014 06:49 PM