Multiple choice questions and answers, table or form in Word for Mac

Question

I am in two minds how to approach this task and would like some advice how I would go about it using Word of Mac.

I have several questions with multiple answers.

So for example: I would like a tick box next to each possible answer. When the tick is put into boxes and then check Answer button is pushed the correct answers will be shown with a tick to the right of the answer.

Question 1 of 14

A tachograph is used to record:

Select Three of the options below.

A. √ Vehicle speed

B.    Voicemail messages

C. √ Distance travelled

D. √ Journey times

E.    Video images

Check Answer (Click button)

Correct Answer: A, C and D and I want a coloured ticked to appear to right of each answer and a total 1 out of 14 is given.

but say someone enters A, B and E.  

A. √ Vehicle speed

B. √ Voicemail messages

C.    Distance travelled

D.    Journey times

E. √ Video images

Check Answer (Click)

A. is correct but B and E wrong. Question receives no mark because all three must be answered correctly and I want the correct answers to be shown as above with the coloured tick to the right of each correct answer.

I hope you can help. Thanks in advance.

Answer 1

Ctrl + R wasn't working because you hadn't assigned it to the Reset macro. To add a keyboard shortcut:

1. Open the document and unprotect it by using Tools>Protect Document, unchecking Protect document for and OKing out.
2. Choose Tools>Customize Keyboard. At the bottom of the dialog, change Save changes in: from Normal.dotm to 13. Tachograph Overview.docm.
3. In the Categories list, scroll down to Macros and select it.
4. In the Commands list, scroll down to ResetQuestions and select it.
5. Click in the Press new keyboard shortcut field, then press control and r. Your chosen command will appear in the field.
6. Click on the Assign button. OK out.

With the document still unprotected, right-click on each checkbox and choose Properties. Change the Entry field to None instead of Question01. The Entry field runs the chosen macro every time you enter the field, so setting it on every checkbox makes it run every time you revisit the checkbox. This is why the checkmarks appeared early.

Previously, you said that you wanted to assess all questions at the same time, after they are all answered. If so, on your last page in the Finished checkbox, you would remove the Entry and Exit ResetQuestions macro. As is, checking that box would just reset the form, not tally the answers.

Since you've already written a separate macro for each question, we can create one macro to summon them all:

Sub CheckQuestions()

  Question01

  Question02

  Question03

  Question04

  Question05

  Question06

  Question07

  Question08

  Question09

  Question10

  Question11

  Question12

  Question13

  Question14

End Sub

Then set the Entry macro on the Finished checkbox to CheckQuestions. Now clicking on it will run through all 14 macros and display a score.

On a design note, you'll get more reliable pagination if you create pages by inserting a Page Break instead of multiple carriage returns.

Your file uses Lucida Grande and Zapf Dingbats, neither of which will display on a Windows computer. Here's a reference chart that shows which fonts come with different versions of Windows.

Here's a partially revised version of your document with most of these changes. I did not remove the Entry macros from Questions 2 to 14, you still have to do that.

Answer 2

I would say that's beyond Word's capabilities, unless you use macros, and even so it would be a lot of work.

Instead, I would advise using Google Forms or one of these **quiz-building applications**. Most of them work online and some allow automatic grading. And you can continue searching here.

Answer 3

Daniel may be right, there are a lot of steps to this. But here are the basics. First, make sure you use Help>Check for Updates to bring your version up to 15.17. VBA is finally useable in this version and that's what you're going to need. Next, open Word>Preferences>View and check Show developer tab. This will add the Developer tab to your Ribbon.

Create a new file and save it as a macro-enabled document with a .docm file ending.

Click on the Developer tab, then on the Visual Basic icon. The Visual Basic for Applications (VBA) editor window opens

In the large window, copy and paste this macro:

Dim AnswerTotal%

Sub Question01()

  Application.ScreenUpdating = False  

  With ActiveDocument

    If .ProtectionType = wdAllowOnlyFormFields Then

      .Unprotect

    End If

    If .FormFields("Check1a").CheckBox.Value = True And .FormFields("Check1c").CheckBox.Value = True And .FormFields("Check1d").CheckBox.Value = True Then

      AnswerTotal% = AnswerTotal% + 1

    End If

    .Bookmarks("Question01a").Range.Font.Hidden = False

    .Bookmarks("Question01c").Range.Font.Hidden = False

    .Bookmarks("Question01d").Range.Font.Hidden = False

   If .ProtectionType = wdNoProtection Then

      .Protect Type:=wdAllowOnlyFormFields, noreset:=True

    End If

  End With

  Application.ScreenUpdating = True

End Sub

The lines mentioning the bookmarks should be altered to correspond with the number of correct answers. The bookmark name cannot contain spaces or punctuation. You'll need one of these macros for each of the 14 questions, just increment the macro name to reflect the question number. Don't duplicate the Dim AnswerTotal% line, that only needs to appear once at the very top.

For macro 14, add a line just before the End Sub:

  MsgBox "Congratulations! Your score is " & AnswerTotal%

Then you'll need a macro to reset the questionnaire:

Sub ResetQuestions()

  With ActiveDocument

    If .ProtectionType = wdAllowOnlyFormFields Then

      .Unprotect

    End If

    .Bookmarks("Question01a").Range.Font.Hidden = True

    .Bookmarks("Question01c").Range.Font.Hidden = True

    .Bookmarks("Question01d").Range.Font.Hidden = True

    .Bookmarks("Question02a").Range.Font.Hidden = True

'Add more lines to do all 14 questions at once

   If .ProtectionType = wdNoProtection Then

      .Protect Type:=wdAllowOnlyFormFields

    End If

  End With

End Sub

To run this, open Developer>Visual Basic, expand modules under Questionnaire.docm, click on ResetQuestions() and click on the icon that looks like a vertical bar with an arrowhead to it's right. We can come up with something more convenient if you actually decide to implement this.

Close the VBA editor and create each question:

1. Enter a checkbox from the Developer tab.
2. Right-click on it and choose Properties.
3. Edit the name to reflect the names in the macros: Check1a, Check1b, etc.
4. For the last checkbox in a set of 5, click on the Exit dropdown in Properties and choose the macro called Question01. OK out.
5. Then type the question, followed by a space or two.
6. Insert a check symbol and color it.
7. Select the checkbox and use Insert>Bookmark and name it Question01a.
8. While the check is still selected, use Format>Font and check the Hidden attribute. The check should disappear.
9. Repeat for each question, but leave out checks beside the wrong answers.

When you're all done, choose Tools>Protect Document, check Protect document for, select Forms and OK out (Don't add a password). Save your form. Then test it by tabbing through the checkboxes, hitting the space bar for each one where you want a check to appear.

This might seem a bit involved if you haven't done macro programming before, but it's pretty well the only way to do the kind of questionnaire you want. I've uploaded a sample document with one question and the macros in this post, you can download it from this link.

Answer 4

Thank you John, I'll begin working on this. I'm sure there are going to be many questions but will only know once I've completed the 14 questions with all the macros. Appreciate your time and effort putting this together. Chat later.

Answer 5

Thank you Daniel, I'll crack on with John's suggested macro and look at the suggestions you mentioned once I see how this looks and works for me. Appreciate your help.