Microsoft Disco

• Tweet
• Sharebar

• Tweet

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