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.

--
Stefan Blom
Microsoft Word MVP

"vavs" <va...@discussions.microsoft.com> wrote in message
news:2051D3BE-B1C7-48A7...@microsoft.com...

[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)?

On May 28, 10:55 am, Lene Fredborg <l...@REMOVETHISthedoctools.com>
wrote:

> > "vavs" <v...@discussions.microsoft.com> wrote in message

> >news:2051D3BE-B1C7-48A7...@microsoft.com...
> > >I could add special text effects in Word 2003.  I cannot find it in Word

> > > 2007.  Is it gone?-

[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