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 = ActiveDocumentApplication.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 counterCase 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