Randomize Questions Order

sarah2020 · #1 05-08-2018, 01:34 AM

Hello

I have a document having 100 questions in form of multiple-choice questions.

I want to generate 5 forms which have the same questions but I want to change the order of them [to prevent students from cheating]

I know I can do that manually but I find this cumbersome because I face this problem frequently.

I trust that I can find a simple solution from you here

Thanks

Guessed · #2 05-08-2018, 03:58 AM

If you want a simple solution then you will need to provide a sample doc.

If the questions are in a table the solution will be very different than if they are in paragraphs.

sarah2020 · #3 05-08-2018, 04:08 AM

Quote:

Originally Posted by Guessed

If you want a simple solution then you will need to provide a sample doc.

If the questions are in a table the solution will be very different than if they are in paragraphs.

Thanks; they're in paragraphs

Guessed · #4 05-08-2018, 04:48 AM

This would work adequately if you selected the paragraphs before running the macro.

Code:

Sub RandomiseParas()
  Dim aPar As Paragraph, i As Integer
  For Each aPar In Selection.Paragraphs
    i = Rnd() * 1000
    aPar.Range.InsertBefore Format(i, "000") & vbTab
  Next aPar
  Selection.Sort ExcludeHeader:=False, FieldNumber:="Paragraphs", _
      SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, _
      Separator:=wdSortSeparateByTabs
  WordBasic.ToolsBulletsNumbers Replace:=0, Type:=1, Remove:=1
End Sub

sarah2020 · #5 05-08-2018, 05:02 AM

Quote:

Originally Posted by Guessed

This would work adequately if you selected the paragraphs before running the macro.

Code:

Sub RandomiseParas()
  Dim aPar As Paragraph, i As Integer
  For Each aPar In Selection.Paragraphs
    i = Rnd() * 1000
    aPar.Range.InsertBefore Format(i, "000") & vbTab
  Next aPar
  Selection.Sort ExcludeHeader:=False, FieldNumber:="Paragraphs", _
      SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, _
      Separator:=wdSortSeparateByTabs
  WordBasic.ToolsBulletsNumbers Replace:=0, Type:=1, Remove:=1
End Sub

Thanks; no way to be done without Macro?

Guessed · #6 05-08-2018, 05:11 AM

Yes, you can do it without macros.

You could put it in Excel and add a column with a =rand() formula, sort on that column then paste the resulting column of questions back into Word

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
PPT VBA Questions	davidmorse	PowerPoint	0	03-06-2018 09:35 PM
randomize numbers. help me defeat plagiarism!	physicsphilosopher	Word VBA	9	03-23-2017 10:08 PM
Questions	S_jt_C	Word	1	12-05-2015 04:35 PM
Randomize Animations?	idprincess03	PowerPoint	1	12-13-2012 06:57 AM
Few questions...needs some help!	Wolf.Stalker	Outlook	1	02-21-2012 09:15 PM