Randomize Questions Order

Guessed · #1 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 · #2 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?

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