Computer Pranks Central- Computer Pranks and Rants

UPDATED (now selects random words to delete)
This next prank is a little strange. I hope it makes sense. What this prank does is, when ever you press spacebar it copies the word between the first space and the next. Then it takes that word and from 5 to 1 second it will delete the word. Confusing? Well in the most simple terms it copies words while you are typing them. Then a few seconds after you typed that word it will delete that word. Try it out yourself and you’ll see the frustration it can cause.

Step 1: Open Microsoft Word

Step 2: Press Alt F11

Step 3: Copy the code below into your normal template: (retype any “)

Sub AddKeyBinding()

With Application
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeySpacebar), KeyCategory:=wdKeyCategoryCommand, _
Command:=”Timer”
End With

End Sub

Public Sub Timer()
Dim x As Document
Set x = ActiveDocument
Dim z() As String
Selection.TypeText Text:=” ”
counter = CStr(Int((10 – 1 + 1) * Rnd + 1))
Application.OnTime When:=Now + TimeValue(“00:00:” + counter), _
Name:=”removeit”

End Sub

Sub removeit()
Dim x As Document
Set x = ActiveDocument

counter = CStr(Int((x.Words.Count – 1 + 1) * Rnd + 1))
x.Words(counter).Delete

End Sub

Step 4: Click Play

Step 5: Let them figure out how to fix it