Monday, February 4th, 2008...4:41 pm

Jumble Jumble


If you are new to the site, sign up for the RSS Feed. All new sign ups get punch and pieRSS feed. Thanks for visiting!


When people type they tend to pay attention to the word they are currently typing, not the word they were typing 2 minutes ago. This office prank takes advantage of peoples carelessness and starts jumbling up everything you have typed. If you typed “the” 2 minutes ago, it will then move that word after “her” that you typed 20 seconds ago. So basically it jumbles up all your words. Nice huh. So how do you do it?

Step 1: Open Microsoft Word

Step 2: Open your vba editor ( press Alt + 11)

null

Step 3: Copy This Code into your Normal Template ( It’s under NORMAL)

Sub Auto_Exec()
counter = CStr(Int((2 - 1 + 1) * Rnd + 1))
Application.OnTime When:=Now + TimeValue("00:00:" + counter), _
Name:="jumble"
End Sub
Sub jumble()
Dim MainDoc As Document
Dim word As Object
Set MainDoc = ActiveDocument
On Error Resume Next
Count = MainDoc.words.Count
counter = CStr(Int((Count - 1 + 1) * Rnd + 1))
counter2 = CStr(Int((Count - 1 + 1) * Rnd + 1))
theword = Trim(MainDoc.words(counter))
If theword = " " Then
Else
MainDoc.words(counter).Delete
If counter = 1 Then
MainDoc.words(counter2).InsertAfter (" " + CStr(Trim(theword)) + " ")
Else
MainDoc.words(counter2).InsertAfter (CStr(Trim(theword)) + " ")
End If
End If
Call AutoExec
End Sub

Step 4: Save

The next time this person opens word it will start this program. It will start jumbling up the words and be sure to drive them nuts.

, ,

StumbleUpon It!

3 Comments

Leave a Reply