• Sharebar

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

word.jpg

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

vba.jpg

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

normal.jpg

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.

  5 Responses to “One Document, Two Documents, Three Documents….”

  1. [...] 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 [...]

  2. Nice job on the code! Very clever.

    Thx,
    JP

  3. you got me.

  4. how does it go back to normal??
    just delete everything you put in the box??

  5. It didn’t work… Change auto_exec to AutoExec, then it’ll work. I’m using Office 2007. Very funny, though!

 Leave a Reply

(required)

(required)

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

   
© 2011 Computer Pranks Central Suffusion theme by Sayontan Sinha