Yay! Thanks to this Graham Mayor guy on a PCReview forum, even though the features are missing from Office 2007 onward, I can still make my MS Word text really, really obnoxious! Just like in the old days, when I centered everything on my web page and tried to use loudly patterned background images, many animated gifs, and blinking text for highlight!

Yay! In case you too want to relive the joys of multicolored, flashing, blinking, sparkling, shimmering, mummafummin’ marching text, here’s how you can do it!

  1. In Word, at the top left corner, click the Office button, and at the bottom of the menu that appears, click Word Options.
  2. In the dialog that appears, on the Popular tab, select the checkbox to Show Developer tab in the Ribbon, and click OK.
  3. Click the Developer ribbon, and in the Code section, click the Record Macro button.
  4. In the Record Macro dialog that appears, enter the Macro name: animatedFonts, and select Assign macro to Button.
  5. In the Word options dialog that appears, double-click the macro Normal.NewMacros.animatedFonts to add it to the Quick Access toolbar to the right, and click OK.
  6. Enter any text on the page, and in the Developer toolbar Code section, click Stop Recording.
  7. In the toolbar Code section click Macros, and in the dialog that appears, select animatedFonts and click Edit.
  8. In the Microsoft Visual Basic window that appears, delete all of the code in the Normal window and paste in the following:
    Sub animatedFonts()
        '
        ' animatedFonts Macro
        '
        Dim sAnimation As String
        If Len(Selection.Range) = 0 Then
            MsgBox "Select text first!", vbCritical, "No Text Selected"
            Exit Sub
        End If
        sAnimation = InputBox("Which animation? Enter the number: " & vbCr & _
        " 1. Blinking Background" & vbCr & _
        " 2. Las Vegas Lights" & vbCr & _
        " 3. Marching Black Ants" & vbCr & _
        " 4. Marching Red Ants" & vbCr & _
        " 5. Shimmer" & vbCr & _
        " 6. Sparkle Text" & vbCr & _
        " 0. None", "Font animation")
        Select Case sAnimation
            Case 1: Selection.Font.Animation = wdAnimationBlinkingBackground
            Case 2: Selection.Font.Animation = wdAnimationLasVegasLights
            Case 3: Selection.Font.Animation = wdAnimationMarchingBlackAnts
            Case 4: Selection.Font.Animation = wdAnimationMarchingRedAnts
            Case 5: Selection.Font.Animation = wdAnimationShimmer
            Case 6: Selection.Font.Animation = wdAnimationSparkleText
            Case 0: Selection.Font.Animation = wdAnimationNone
            Case Else:
        End Select
    End Sub
  9. Save and close the Microsoft Visual Studio window, and a new button is added to your Quick Start in Word (top left).
  10. Now highlight some text and click the new button. Enter a number from 1 to 6 and click OK!

Woo hoo!!!

Advertisements