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.
[...] for visiting! A friend of mine Im’d me the other day asking for a prank. I sent him to this office prank . After he had completed the prank the guy didn’t use word until today. here is my [...]
Nice job on the code! Very clever.
Thx,
JP
you got me.
how does it go back to normal??
just delete everything you put in the box??
It didn’t work… Change auto_exec to AutoExec, then it’ll work. I’m using Office 2007. Very funny, though!