How do you create scrolling marquee text in Word?

[TheTraveler]

This used to be available in versions up to 07. Is there a way to recreate
this feature? I read somewhere that is was removed because some found it
annoying. Is there any help for me? I need it for a specific application.

 

[Stefan Blom]

In Word 2007, the only way to create text effects is via a macro. Ask in a
programming newsgroup such as microsoft.public.word.vba.general.

 

[Graham Mayor]

Text effects? I'm glad someone knew what he meant

I posted the following macro recently, for use in Word 2007

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 - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Stefan Blom]

I never remember the official name for those things, since I never use them.
The Font dialog box of Word 2003 is of no help, either: the tab says "Text
Effects" while the box on that tab is labeled "Animation."