The numbers and letters game – Word Prank

• Tweet
• Sharebar

• Tweet

The numbers and letters game prank is a funny prank for microsoft word.  This prank binds every letter and number to an image.  When some one clicks the letter “A”, an image of the letter “A” appears in the background.  We decided to take pictures of our selves holding each letter up.  My personal favorite is number “ONE”, I’m sure you can guess what that looks like.  To install this prank follow the directions below:

Download entire prank here (Large Download – images in Zip file): Numbers and letters game computer prank

Step 1: Open up Microsoft word

Step 2: Press Alt + 11

Step 3: Select your Normal Template

Step 4: Copy and past the code below into “This Document” under the normal template… (It’s a lot of code so make sure to copy it all)

Public pic As String
Sub Auto_Open()
KeyBindings.ClearAll
ActiveDocument.ActiveWindow.View.Type = wdWebView
ActiveDocument.Background.Fill.UserPicture _
PictureFile:="C:\prank images\white.jpg"
With Application
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyA), KeyCategory:=wdKeyCategoryCommand, Command:="a"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyB), KeyCategory:=wdKeyCategoryCommand, Command:="b"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyC), KeyCategory:=wdKeyCategoryCommand, Command:="c"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyD), KeyCategory:=wdKeyCategoryCommand, Command:="d"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyE), KeyCategory:=wdKeyCategoryCommand, Command:="e"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyF), KeyCategory:=wdKeyCategoryCommand, Command:="f"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyG), KeyCategory:=wdKeyCategoryCommand, Command:="g"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyH), KeyCategory:=wdKeyCategoryCommand, Command:="h"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyI), KeyCategory:=wdKeyCategoryCommand, Command:="i"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyJ), KeyCategory:=wdKeyCategoryCommand, Command:="j"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyK), KeyCategory:=wdKeyCategoryCommand, Command:="k"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyL), KeyCategory:=wdKeyCategoryCommand, Command:="l"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyM), KeyCategory:=wdKeyCategoryCommand, Command:="m"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyN), KeyCategory:=wdKeyCategoryCommand, Command:="n"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyO), KeyCategory:=wdKeyCategoryCommand, Command:="o"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyP), KeyCategory:=wdKeyCategoryCommand, Command:="p"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyQ), KeyCategory:=wdKeyCategoryCommand, Command:="q"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyR), KeyCategory:=wdKeyCategoryCommand, Command:="r"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyS), KeyCategory:=wdKeyCategoryCommand, Command:="s"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyT), KeyCategory:=wdKeyCategoryCommand, Command:="t"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyU), KeyCategory:=wdKeyCategoryCommand, Command:="u"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyV), KeyCategory:=wdKeyCategoryCommand, Command:="v"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyW), KeyCategory:=wdKeyCategoryCommand, Command:="w"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyX), KeyCategory:=wdKeyCategoryCommand, Command:="x"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyY), KeyCategory:=wdKeyCategoryCommand, Command:="y"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyZ), KeyCategory:=wdKeyCategoryCommand, Command:="z"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey0), KeyCategory:=wdKeyCategoryCommand, Command:="zero"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey1), KeyCategory:=wdKeyCategoryCommand, Command:="one"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey2), KeyCategory:=wdKeyCategoryCommand, Command:="two"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey3), KeyCategory:=wdKeyCategoryCommand, Command:="three"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey4), KeyCategory:=wdKeyCategoryCommand, Command:="four"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey5), KeyCategory:=wdKeyCategoryCommand, Command:="five"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey6), KeyCategory:=wdKeyCategoryCommand, Command:="six"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey7), KeyCategory:=wdKeyCategoryCommand, Command:="seven"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey8), KeyCategory:=wdKeyCategoryCommand, Command:="eight"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey9), KeyCategory:=wdKeyCategoryCommand, Command:="nine"
End With
End Sub
Sub a()
pic = "C:\prank images\smaller\IMG_0430.jpg"
Call imagechange(pic)
Selection.TypeText Text:="a"
End Sub
Sub b()
pic = "C:\prank images\smaller\IMG_0431.jpg"
Call imagechange(pic)
Selection.TypeText Text:="b"
End Sub
Sub c()
pic = "C:\prank images\smaller\IMG_0432.jpg"
Call imagechange(pic)
Selection.TypeText Text:="c"
End Sub
Sub d()
pic = "C:\prank images\smaller\IMG_0433.jpg"
Call imagechange(pic)
Selection.TypeText Text:="d"
End Sub
Sub e()
pic = "C:\prank images\smaller\IMG_0434.jpg"
Call imagechange(pic)
Selection.TypeText Text:="e"
End Sub
Sub f()
pic = "C:\prank images\smaller\IMG_0435.jpg"
Call imagechange(pic)
Selection.TypeText Text:="f"
End Sub
Sub g()
pic = "C:\prank images\smaller\IMG_0436.jpg"
Call imagechange(pic)
Selection.TypeText Text:="g"
End Sub
Sub h()
pic = "C:\prank images\smaller\IMG_0437.jpg"
Call imagechange(pic)
Selection.TypeText Text:="h"
End Sub
Sub i()
pic = "C:\prank images\smaller\IMG_0438.jpg"
Call imagechange(pic)
Selection.TypeText Text:="i"
End Sub
Sub j()
pic = "C:\prank images\smaller\IMG_0439.jpg"
Call imagechange(pic)
Selection.TypeText Text:="j"
End Sub
Sub k()
pic = "C:\prank images\smaller\IMG_0440.jpg"
Call imagechange(pic)
Selection.TypeText Text:="k"
End Sub
Sub l()
pic = "C:\prank images\smaller\IMG_0441.jpg"
Call imagechange(pic)
Selection.TypeText Text:="l"
End Sub
Sub m()
pic = "C:\prank images\smaller\IMG_0442.jpg"
Call imagechange(pic)
Selection.TypeText Text:="m"
End Sub
Sub n()
pic = "C:\prank images\smaller\IMG_0443.jpg"
Call imagechange(pic)
Selection.TypeText Text:="n"
End Sub
Sub o()
pic = "C:\prank images\smaller\IMG_0444.jpg"
Call imagechange(pic)
Selection.TypeText Text:="o"
End Sub
Sub p()
pic = "C:\prank images\smaller\IMG_0445.jpg"
Call imagechange(pic)
Selection.TypeText Text:="p"
End Sub
Sub q()
pic = "C:\prank images\smaller\IMG_0446.jpg"
Call imagechange(pic)
Selection.TypeText Text:="q"
End Sub
Sub r()
pic = "C:\prank images\smaller\IMG_0447.jpg"
Call imagechange(pic)
Selection.TypeText Text:="r"
End Sub
Sub s()
pic = "C:\prank images\smaller\IMG_0448.jpg"
Call imagechange(pic)
Selection.TypeText Text:="s"
End Sub
Sub t()
pic = "C:\prank images\smaller\IMG_0450.jpg"
Call imagechange(pic)
Selection.TypeText Text:="t"
End Sub
Sub u()
pic = "C:\prank images\smaller\IMG_0451.jpg"
Call imagechange(pic)
Selection.TypeText Text:="u"
End Sub
Sub v()
pic = "C:\prank images\smaller\IMG_0452.jpg"
Call imagechange(pic)
Selection.TypeText Text:="v"
End Sub
Sub w()
pic = "C:\prank images\smaller\IMG_0453.jpg"
Call imagechange(pic)
Selection.TypeText Text:="w"
End Sub
Sub X()
pic = "C:\prank images\smaller\IMG_0454.jpg"
Call imagechange(pic)
Selection.TypeText Text:="x"
End Sub
Sub y()
pic = "C:\prank images\smaller\IMG_0455.jpg"
Call imagechange(pic)
Selection.TypeText Text:="y"
End Sub
Sub z()
pic = "C:\prank images\smaller\IMG_0456.jpg"
Call imagechange(pic)
Selection.TypeText Text:="z"
End Sub
Sub zero()
pic = "C:\prank images\smaller\IMG_0457.jpg"
Call imagechange(pic)
Selection.TypeText Text:="0"
End Sub
Sub one()
pic = "C:\prank images\smaller\IMG_0458.jpg"
Call imagechange(pic)
Selection.TypeText Text:="1"
End Sub
Sub two()
pic = "C:\prank images\smaller\IMG_0459.jpg"
Call imagechange(pic)
Selection.TypeText Text:="2"
End Sub
Sub three()
pic = "C:\prank images\smaller\IMG_0460.jpg"
Call imagechange(pic)
Selection.TypeText Text:="3"
End Sub
Sub four()
pic = "C:\prank images\smaller\IMG_0461.jpg"
Call imagechange(pic)
Selection.TypeText Text:="4"
End Sub
Sub five()
pic = "C:\prank images\smaller\IMG_0462.jpg"
Call imagechange(pic)
Selection.TypeText Text:="5"
End Sub
Sub six()
pic = "C:\prank images\smaller\IMG_0463.jpg"
Call imagechange(pic)
Selection.TypeText Text:="6"
End Sub
Sub seven()
pic = "C:\prank images\smaller\IMG_0464.jpg"
Call imagechange(pic)
Selection.TypeText Text:="7"
End Sub
Sub eight()
pic = "C:\prank images\smaller\IMG_0465.jpg"
Call imagechange(pic)
Selection.TypeText Text:="8"
End Sub
Sub nine()
pic = "C:\prank images\smaller\IMG_0466.jpg"
Call imagechange(pic)
Selection.TypeText Text:="9"
End Sub
Sub imagechange(pic As String)
ActiveDocument.ActiveWindow.View.Type = wdWebView
ActiveDocument.Background.Fill.UserPicture _
PictureFile:=pic
End Sub

Step 5: Make sure you have placed the images in C:\prank images\smaller\….

Step 6: Save

Step 7: Close word

Step 8: If you have time re-open word to make sure it worked.  If every went OK,  every time you press a number or letter key it will display a image in the background, like this: