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
"grammatim" wrote:
> 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:
> > 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 - Denmarkwww.thedoctools.com
> > Document automation - add-ins, macros and templates for Microsoft Word
> >
> >
> >
> > "Stefan Blom" wrote:
> > > 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" <v...@discussions.microsoft.com> wrote in message
> > >news:2051D3BE-B1C7-48A7-8440-(E-Mail Removed)...
> > > >I could add special text effects in Word 2003. I cannot find it in Word
> > > > 2007. Is it gone?-
>
Similar Threads
