add ‘Your answer’ and the box to multiple choice questions

I produce a lot of practice papers for my A level students and I take multiple choice questions from AQA and Edexcel papers. This means that I need to add the ‘Your answer’ and the box. I used to just copy and paste it from a different paper but now I click on my macro to add them.

The macro tabs along one tab so you need to have your tab stops set up in the same position as mine – see my macro here. It also adds the [1] at the end of the line. The box is a symbol, found using the macro here.

Sub YourAnswer()
    Selection.TypeText Text:=vbTab & “Your answer” & vbTab
    Selection.InsertSymbol Font:=”Arial”, CharacterNumber:=-9408, Unicode:= _
    Selection.InsertSymbol Font:=”Arial”, CharacterNumber:=-8950, Unicode:= _
    Selection.Find.Replacement.Font.Size = 42
    With Selection.Find
        .Text = ChrW(56128) & ChrW(56586)
        .Replacement.Text = ChrW(56128) & ChrW(56586)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Font.Size = 11
    Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab & vbTab _
    & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & ”     ” & “[1]”
End Sub

Leave a Reply

Fill in your details below or click an icon to log in: Logo

You are commenting using your account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s

%d bloggers like this: