Reply
 
Thread Tools Display Modes
  #1   Report Post  
Posted to microsoft.public.word.docmanagement
Dave R. Dave R. is offline
external usenet poster
 
Posts: 1
Default change test questions to reverse order

need 2 tests same questions but the second test in reverse order of the first
  #2   Report Post  
Posted to microsoft.public.word.docmanagement
JoAnn Paules [MVP] JoAnn Paules [MVP] is offline
external usenet poster
 
Posts: 2,113
Default change test questions to reverse order

Do it manually.

--

JoAnn Paules
MVP Microsoft [Publisher]




"Dave R." wrote in message
...
need 2 tests same questions but the second test in reverse order of the
first



  #3   Report Post  
Posted to microsoft.public.word.docmanagement
John McGhie [MVP - Word and Word Macintosh] John McGhie [MVP - Word and Word Macintosh] is offline
external usenet poster
 
Posts: 506
Default change test questions to reverse order

Or buy my utility which randomises questions for any number of exams :-)


On 25/8/06 11:13 AM, in article
, "Dave R."
wrote:

need 2 tests same questions but the second test in reverse order of the first


--

Please reply to the newsgroup to maintain the thread. Please do not email
me unless I ask you to.

John McGhie
Microsoft MVP, Word and Word for Macintosh. Consultant Technical Writer
Sydney, Australia +61 (0) 4 1209 1410

  #4   Report Post  
Posted to microsoft.public.word.docmanagement
Doug Robbins - Word MVP Doug Robbins - Word MVP is offline
external usenet poster
 
Posts: 8,832
Default change test questions to reverse order

Here is a macro that will put the questions into a different random order
for each student:

Dim i As Integer, j As Integer, k As Integer, Source As Document, Target As
Document, students As Integer

Dim Message, Title, question As Range

Message = "Enter number of students" ' Set prompt.

Title = "Randomizer" ' Set title.

' Display message, title

students = InputBox(Message, Title)



For k = 1 To students

Set Source = Documents.Open("E:\Worddocs\source1.doc")

Set Target = Documents.Add

For i = 100 To 0 Step -1

j = Int((i * Rnd) + 1)

Set question = Source.Paragraphs(j).Range

Target.Range.InsertAfter question

question.Delete

Next i

' Print and Close Document with random list of questions

Target.PrintOut

' Target.SaveAs ("E:\worddocs\student" & k & ".doc")

Target.Close SaveChanges:=wdDoNotSaveChanges

Source.Close SaveChanges:=wdDoNotSaveChanges

Next k


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Dave R." wrote in message
...
need 2 tests same questions but the second test in reverse order of the
first



  #5   Report Post  
Posted to microsoft.public.word.docmanagement
John McGhie [MVP - Word and Word Macintosh] John McGhie [MVP - Word and Word Macintosh] is offline
external usenet poster
 
Posts: 506
Default change test questions to reverse order

Hi Doug:

Oi!!! You're hurting my sales :-)

That's very neat... And very eloquent :-)

Cheers

On 27/8/06 4:32 PM, in article , "Doug
Robbins - Word MVP" wrote:

Here is a macro that will put the questions into a different random order
for each student:

Dim i As Integer, j As Integer, k As Integer, Source As Document, Target As
Document, students As Integer

Dim Message, Title, question As Range

Message = "Enter number of students" ' Set prompt.

Title = "Randomizer" ' Set title.

' Display message, title

students = InputBox(Message, Title)



For k = 1 To students

Set Source = Documents.Open("E:\Worddocs\source1.doc")

Set Target = Documents.Add

For i = 100 To 0 Step -1

j = Int((i * Rnd) + 1)

Set question = Source.Paragraphs(j).Range

Target.Range.InsertAfter question

question.Delete

Next i

' Print and Close Document with random list of questions

Target.PrintOut

' Target.SaveAs ("E:\worddocs\student" & k & ".doc")

Target.Close SaveChanges:=wdDoNotSaveChanges

Source.Close SaveChanges:=wdDoNotSaveChanges

Next k


--

Please reply to the newsgroup to maintain the thread. Please do not email
me unless I ask you to.

John McGhie
Microsoft MVP, Word and Word for Macintosh. Consultant Technical Writer
Sydney, Australia +61 (0) 4 1209 1410



  #6   Report Post  
Posted to microsoft.public.word.docmanagement
Doug Robbins - Word MVP Doug Robbins - Word MVP is offline
external usenet poster
 
Posts: 8,832
Default change test questions to reverse order

Probably makes marking the results harder than doing the testg

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"John McGhie [MVP - Word and Word Macintosh]" wrote in
message ...
Hi Doug:

Oi!!! You're hurting my sales :-)

That's very neat... And very eloquent :-)

Cheers

On 27/8/06 4:32 PM, in article ,
"Doug
Robbins - Word MVP" wrote:

Here is a macro that will put the questions into a different random order
for each student:

Dim i As Integer, j As Integer, k As Integer, Source As Document, Target
As
Document, students As Integer

Dim Message, Title, question As Range

Message = "Enter number of students" ' Set prompt.

Title = "Randomizer" ' Set title.

' Display message, title

students = InputBox(Message, Title)



For k = 1 To students

Set Source = Documents.Open("E:\Worddocs\source1.doc")

Set Target = Documents.Add

For i = 100 To 0 Step -1

j = Int((i * Rnd) + 1)

Set question = Source.Paragraphs(j).Range

Target.Range.InsertAfter question

question.Delete

Next i

' Print and Close Document with random list of questions

Target.PrintOut

' Target.SaveAs ("E:\worddocs\student" & k & ".doc")

Target.Close SaveChanges:=wdDoNotSaveChanges

Source.Close SaveChanges:=wdDoNotSaveChanges

Next k


--

Please reply to the newsgroup to maintain the thread. Please do not email
me unless I ask you to.

John McGhie
Microsoft MVP, Word and Word for Macintosh. Consultant Technical Writer
Sydney, Australia +61 (0) 4 1209 1410



Reply
Thread Tools
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
how to print two pages in a sheet and change each page order Grandi Page Layout 1 May 19th 05 09:03 PM
Reverse order of text Javier Medina Page Layout 1 May 19th 05 07:39 PM
I want to change the tab order in a word form I created. BARC Microsoft Word Help 1 May 4th 05 05:01 PM
How do I change the order of the FILLIN field prompts? Unpaved313 Page Layout 1 March 28th 05 08:41 PM
How do you change order of pages in word? wally Microsoft Word Help 1 February 5th 05 02:57 AM


All times are GMT +1. The time now is 12:23 AM.

Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"