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:= _
True
Selection.InsertSymbol Font:=”Arial”, CharacterNumber:=-8950, Unicode:= _
True
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
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
Chemistry Word VBA macros 