Computer Pranks Central

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!

If there is one thing that goes together with programming its DISCO. This prank makes your Microsoft Word turn into a magical disco floor. The steps are very simple and this is all you have to do

Step 1: Open Word

Step 2: Press Alt F-11

Step 3: Copy code into your Normal Template. (replace any quotations, by re-typing them, I was too lazy to put in the ASCII versions)

Sub AutoExec()
Call RandomColor
End Sub
Sub RandomColor()

Dim x As Document
Set x = ActiveDocument

Application.OnTime When:=Now + TimeValue(”00:00:01″), _
Name:=”Disco”
End Sub

Sub Disco()
Dim x As Document
Set x = ActiveDocument
counter = CStr(Int((10 - 1 + 1) * Rnd + 1))
Select Case counter

Case 1
Colorpick = wdColorRed
Case 2
Colorpick = wdColorGreen
Case 3
Colorpick = wdColorYellow
Case 4
Colorpick = wdColorBlack
Case 5
Colorpick = wdColorPink
Case 6
Colorpick = wdColorBrown
Case 7
Colorpick = wdColorOrange
Case 8
Colorpick = wdColorPurple
Case 9
Colorpick = wdColorAqua
Case 10
Colorpick = wdColorAqua
End Select
x.Select
With Selection.Font
.Name = “Times New Roman”
.Size = 12
.Bold = True
.Color = Colorpick
.Animation = wdAnimationBlinkingBackground
End With
Selection.MoveRight Unit:=wdCharacter, Count:=1
Call RandomColor
End Sub

Step 4: Save

Step 5: Close Word

Step 6: Prank is on