A macro for teachers to create ticks ✔ and crosses ❌ in MS Word
Marking digital documents is great. No paper, no pen or pencil necessary. But it does help if we can at least draw a tick or a cross symbol. Now, not everyone has a touch screen with a stylus and can make use of Microsoft Word’s draw feature. So, I came up with an alternative. I created two macros and attached keyboard shortcuts to them to place a tick or a cross. I also made sure that macros could be accessed from within any Word document that I have open! I made the shortcut keys nice and close to where my fingers were naturally located on the board. So, now, whenever I need to place a tick, I just hit my shortcut and the tick is there! Though there are plenty of other ways of doing this, but for me this is the fastest.
Here is a slideshow, demonstrating how to create the macros and assign keyboard shortcuts. Make it full screen to be able to read everything.
If the slideshow above is not loading, you can download it here.
Here is the code for your Visual Basic page:
Sub TICK()
‘
‘ TICK Macro
‘
‘
Selection.InsertSymbol Font:=”Wingdings”, CharacterNumber:=-3844, Unicode _
:=True
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Font.ColorIndex = wdGreen
Selection.Font.Size = 16
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub
Sub CROSS()
‘
‘ CROSS Macro
‘
‘
Selection.InsertSymbol Font:=”Wingdings”, CharacterNumber:=-3845, Unicode _
:=True
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Font.ColorIndex = wdRed
Selection.Font.Size = 16
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub
