Computer Tourettes
Warning: constant() [function.constant]: Couldn't find constant TT_RIMS_LEN in /home/stupidsi/public_html/new/wp-content/plugins/tweet-this/tweet-this.php on line 1243
Warning: constant() [function.constant]: Couldn't find constant TT_RIMS_LEN in /home/stupidsi/public_html/new/wp-content/plugins/tweet-this/tweet-this.php on line 1243
Warning: constant() [function.constant]: Couldn't find constant TT_RIMS_LEN in /home/stupidsi/public_html/new/wp-content/plugins/tweet-this/tweet-this.php on line 1243
Warning: constant() [function.constant]: Couldn't find constant TT_RIMS_LEN in /home/stupidsi/public_html/new/wp-content/plugins/tweet-this/tweet-this.php on line 1243
Warning: constant() [function.constant]: Couldn't find constant TT_RIMS_LEN in /home/stupidsi/public_html/new/wp-content/plugins/tweet-this/tweet-this.php on line 1243
Warning: constant() [function.constant]: Couldn't find constant TT_RIMS_LEN in /home/stupidsi/public_html/new/wp-content/plugins/tweet-this/tweet-this.php on line 1243
Warning: constant() [function.constant]: Couldn't find constant TT_RIMS_LEN in /home/stupidsi/public_html/new/wp-content/plugins/tweet-this/tweet-this.php on line 1243
Warning: constant() [function.constant]: Couldn't find constant TT_RIMS_LEN in /home/stupidsi/public_html/new/wp-content/plugins/tweet-this/tweet-this.php on line 1243
Warning: constant() [function.constant]: Couldn't find constant TT_RIMS_LEN in /home/stupidsi/public_html/new/wp-content/plugins/tweet-this/tweet-this.php on line 1243
Warning: constant() [function.constant]: Couldn't find constant TT_RIMS_LEN in /home/stupidsi/public_html/new/wp-content/plugins/tweet-this/tweet-this.php on line 1243
Warning: constant() [function.constant]: Couldn't find constant TT_RIMS_LEN in /home/stupidsi/public_html/new/wp-content/plugins/tweet-this/tweet-this.php on line 1243
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











