Question

Q: Flashing/blinking text in Word 2007 This thread is locked from future replies

Is there a way to create flashing/blinking text in Word 2007.

Answer

A:

The best you can manage is to use the old font effects, which you can apply with a macro, but you will find it fun to print ;)

Sub AnimateFont()
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

http://www.gmayor.com/installing_macro.htm


Graham Mayor (Microsoft Word MVP)
For more Word tips and downloads visit my web site
http://www.gmayor.com/Word_pages.htm

Did this solve your problem?

Sorry this didn't help.

1 person was helped by this reply

Answer

A:

Instead of writing the macro, copy it from this page and paste it into Word following the instructions at http://www.gmayor.com/installing_macro.htm.
Microsoft MVP (Word) since 1999
Fairhope, Alabama USA
http://ssbarnhill.com

Did this solve your problem?

Sorry this didn't help.



 
Question Info

Views: 28567 Last updated: February 10, 2018 Applies to: