Can I add text effect(blinking lights) in word 2007?

[vavs]

I could add special text effects in Word 2003. I cannot find it in Word
2007. Is it gone?

 

[Stefan Blom]

The text effects feature is no longer supported in the user interface, yes.
It still works if you open older documents, though.

I suspect that you could create text effects in Word 2007 if you use a
macro, but I'm not sure. Ask in a programming newsgroup such as
microsoft.public.word.vba.general.

 

[Lene Fredborg]

I just made a test in Word 2007. It is correct that you can use a macro to
apply the text effects and they seem to work. The following macro will apply
the effect “Blinking Background†to the selected text:

Sub ApplyTextEffect()
Selection.Font.Animation = wdAnimationBlinkingBackground
End Sub

You can replace wdAnimationBlinkingBackground with one of the following
constants to apply another effect (the part of the name after “wdAnimationâ€
corresponds to the names shown in Font > Text Effects tab in Word 2003):

wdAnimationLasVegasLights
wdAnimationMarchingBlackAnts
wdAnimationMarchingRedAnts
wdAnimationShimmer
wdAnimationSparkleText

The following macro will remove the text effect from the selection:

Sub ApplyTextEffect()
Selection.Font.Animation = wdAnimationNone
End Sub

For help on installing a macro, see:
http://word.mvps.org/faqs/macrosvba/CreateAMacro.htm

--
Regards
Lene Fredborg - Microsoft MVP (Word)
DocTools - Denmark
www.thedoctools.com
Document automation - add-ins, macros and templates for Microsoft Word

 

[grammatim]

For anyone who (shudder) actually wanted to use those effects, is it
possible to have a QAT button that would give you the six options in a
dropdown, or would it have to be six separate macros/buttons (or
editing the macro each time)?

 

[Lene Fredborg]

The following macro displays a dialog box that lets the user enter a number
in order to indicate which text effect to apply. It could be made a bit more
elegant by creating a UserForm but this version works (more checks for
inappropriate selection could be included). The macro could be added to the
QAT:


Sub ApplyTextEffect()

Dim strInput As String
Dim Msg As String
Dim Title As String

Title = "Apply Text Effect to Selected Text"

'Stop if no selection or only paragraph mark selected
If Selection.Type = wdSelectionIP Or Selection.Text = Chr(13) Then
Msg = "You must first select the text to which you want to apply a
text effect."
MsgBox Msg, vbInformation, Title
Exit Sub
End If

Retry:
Msg = "Enter the number of the text effect you want to apply:" & vbCr &
vbCr & _
"0: None (remove text effect)" & 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"

strInput = InputBox(Msg, Title)

If Len(strInput) = 0 Then
If StrPtr(strInput) = 0 Then
'Cancel clicked
Exit Sub
Else
'OK clicked, empty field
ShowMsg:
Msg = "You must enter a number between 0 and 6. Please retry."
MsgBox Msg, vbInformation, Title
GoTo Retry
End If
Else
'Input
'If not an integer between 0 and 6
If Len(strInput) <> 1 Or InStr(1, "0123456", strInput) = 0 Then
GoTo ShowMsg
Else
With Selection.Font
Select Case strInput
Case 0
.Animation = wdAnimationNone
Case 1
.Animation = wdAnimationBlinkingBackground
Case 2
.Animation = wdAnimationLasVegasLights
Case 3
.Animation = wdAnimationMarchingBlackAnts
Case 4
.Animation = wdAnimationMarchingRedAnts
Case 5
.Animation = wdAnimationShimmer
Case 6
.Animation = wdAnimationSparkleText
End Select
End With
End If

End If

End Sub

--
Regards
Lene Fredborg - Microsoft MVP (Word)
DocTools - Denmark
www.thedoctools.com
Document automation - add-ins, macros and templates for Microsoft Word