What do you think of when you think of Tourettes? Random swear words right? This next prank does exactly that. While you are typing in a word document or outlook a random swear word will appear. The words will appear in random increments and the words them selves are random. The words and the time gap is determined by you.
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 the code below into your normal template. Remember to re-type any “s, they dont always transfer over correctly in the copy/paste process.
Sub typeRand()
Dim counter As String
counter = CStr(Int((30 – 1 + 1) * Rnd + 1))Application.OnTime When:=Now + TimeValue(”00:00:” + counter), _
Name:=”TimedClose”End Sub
Sub TimedClose()
Dim maindocument As Document
Set maindocument = activedocument
counter = CStr(Int((5 – 1 + 1) * Rnd + 1))Select Case counter
Case 1
Selection.TypeText Text:=” FUCK ”
Case 2
Selection.TypeText Text:=” ASSHOLE ”
Case 3
Selection.TypeText Text:=” SHIT ”
Case 4
Selection.TypeText Text:=” BITCH ”
Case 5
Selection.TypeText Text:=” DICK ”
End SelectCall typeRand
End Sub
Step 5: Close Microsoft Word
Step 6: Enjoy
If you have done this correctly the code will load when the person loads Word. Currently there are 5 swear words. They randomly appear any where between 30 and 1 second. This code will load the second they start using word. So if the person doesn’t even type it will start going. It will affect both word and outlook. Below are some tips on how to modify the code.
Edit Swear Words
You can add any number of words you want. To increase the number of swear words only takes a couple tweaks
If you want to have a total of 20 swear words change the 5 in bold to 20.
Before:
counter = CStr(Int((5 – 1 + 1) * Rnd + 1))
After
counter = CStr(Int((20 - 1 + 1) * Rnd + 1))
The next step is to add the swear words. Currently there are 5 swear words. To add a new swear word, repeat the following till you reached the desired amount. After the last statement Case 5, Add Case 6
Case 5
Selection.TypeText Text:=” DICK ”Case 6
Selection.TypeText Text:=” COCK EATER “
Case 7
Selection.TypeText Text:=” Shit Lover “
When you have added all the swear words you want make sure to finish with, End Select.
Edit Time Range
To change the random number range do as follows:
The maximum number comes first and is in bold
counter = CStr(Int((30 - 1 + 1) * Rnd + 1))
To change the maxium simply change the number 30 to something less than or equal to 59
To change the minimum number change the numbers in bold
counter = CStr(Int((20 – 1 + 1) * Rnd + 1))
I recommend keep this at 1 second but changing it wont hurt
How to Reverse the code
Press Alt-F11 and re-open your normal document. Erase the code and restart word.
This is really funny! I was just typing CRAP! a letter at my desk F@CK! when I ran across A$$! this article. Pure brilliance… C@CK!\
lol
HELP!!! I want 2 do this at my high school but every time I click F11 it doesn’t even open the VBA. Is there any other way 2 get to VBA other that F11??? If so email me at XAngelsRCallinX@aim.com
errr its not working
You forgot the swear “Bob Saget” a la tourettes guy.
Loved it, very funny and works well
So I did this prank on my friends computer. It worked great and made him freak out. He finally figured out it was me and I tried to undo it on his computer.
I deleted all of the code in the ThisDocument for Normal, but now everytime Word opens on his computer it gives a “Complie error: Expected End Sub”
Any ideas?
hmmm works but it wont auto run it loads it with every start of word but doesn’t run by itself
Haha.
Lol! I’ll add “LOL”.
As for the use of OpenOffice:
Some of us use Linux…
When I boot into Windows one of these days i’ll mess with this. Very nice. I usually just go for the easy way and screw up AutoCorrect…
Nice though, especially that extended script above.
Sam doesn’t have borderline tourette’s, he just uses that as an excuse to be an ass and to excuse his bad social graces…
Really nice stuff i really like it thanx for sharing it
jasmine
tech-chek.blogspot.com
In word 2007 you actually need to save (CTRL+S) and press play to make it work (I think)?!
Nice joke!
You’re better than nothing. Not even better than than a very big piece of shit on the beach.
Get a life cocksucker.
Sandman? why a piece of shit on the beach? Does sand make that turd worse?
I usually don’t approve comments like this because they don’t add to the conversation. But this one has inspired me to make a hate mail category.
[...] Hate Mail #1 If you’re new here, you MUST subscribe to my RSS feed. RSS feed. Thanks for visiting! sandman December 26th, 2007 at 12:24 pm [...]
[...] sign ups get punch and pieRSS feed. Thanks for visiting! I have been writing computer pranks and office pranks for over a year now. In honor of April Fools day I have compiled the list of the best computer [...]
[...] Mike Foley: Absolutely loved the computer tourettes prank. My roommate is just losing it right now because I set the timer down to 1-5 seconds Mike [...]
[...] Computer Tourettes – Load a script that will randomly write swear words in a word document or outlook function. The [...]
Very intresting!Malware and Spyware become a big problem for a lot of people. Malware remover is effecient way to get rid of all spyware and adware!!
http://malware-remover.com/
Malware Remover
Is there any way to do this in Pages (Macs sucky version of Word)?
Office Computer Prank that gives your word documents Tourettes| Computer Pranks Central http://tinyurl.com/25jlrr
I have MS 2007 and i cant even seem to get it started for anything. Can someone plz explain to me step by step how to input the code etc?…
I have MS 2007 and i cant even seem to get it started for anything. Can someone plz explain to me step by step how to input the code and etc….i really wanna try it out.