Computer Pranks Central

If you are new to the site, sign up for the RSS Feed. All new sign ups get punch and pieRSS feed. Thanks for visiting!

Lets get straight to the point. This computer prank will create a new document every time you hit space. So each individual word will be on its own document. I set the max to be 100 after that it clears the key binding till the next time they start word. Enjoy this office prank and tell me how it goes.

Step 1: Open Microsoft Word

Step 2: Press Alt F-11 (This will open the VBA Editor

Step 3: Select your Normal Template by double clicking “This Document”

Step 4: Copy this code

Sub auto_exec()
With Application
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeySpacebar), KeyCategory:=wdKeyCategoryCommand, _
Command:="NewDoc"
End With
End Sub
Sub newdoc()
Dim x As Document
Set x = ActiveDocument
Documents.Add
If Documents.Count > 100 Then
FindKey(BuildKeyCode(wdKeySpacebar)).Clear
End If
End Sub

Step 5: Save and Close

Step 6: Enjoy

If done correctly each time they try to type a new word it will create a new document.