April 9, 2024
Contribute to the Microsoft 365 and Office forum!
Click here to learn more 💡
May 10, 2024
Word Forum Top Contributors:
Special Effects for Text
Report abuse
Thank you.
Reported content has been submitted
If you really must have it, select the text you want to apply it to. Then press Alt+F11 to open the macro editor, press Ctrl+G to open the Immediate window, paste this line into the Immediate window:
Selection.Font.Animation = wdAnimationLasVegasLights
and press Enter.
When you get sick of looking at it, select the text again and enter this line in the Immediate window:
Selection.Font.Animation = wdAnimationNone
https://jay-freedman.info
Report abuse
Thank you.
Reported content has been submitted
8 people found this reply helpful
·Was this reply helpful?
Sorry this didn't help.
Great! Thanks for your feedback.
How satisfied are you with this reply?
Thanks for your feedback, it helps us improve the site.
How satisfied are you with this reply?
Thanks for your feedback.
There are only seven of them. If you were so inclined, you can easily create a simple userform for selecting and applying one of them:
Private Sub ListBox1_Click()
Select Case ListBox1.ListIndex
Case 0: Selection.Font.Animation = wdAnimationNone
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
End Select
Unload Me
End Sub
Private Sub UserForm_Initialize()
With ListBox1
.AddItem "None"
.AddItem "Blinking Background"
.AddItem "Las Vegas Lights"
.AddItem "Marching Black Ants"
.AddItem "Marching Red Ants"
.AddItem "Shimmmer"
.AddItem "Sparkle Text"
End With
End Sub
***
Death smiles at us all, but all a man can do is smile back.
For more help with Word visit:
http://gregmaxey.com/word_tips.html
Report abuse
Thank you.
Reported content has been submitted
1 person found this reply helpful
·Was this reply helpful?
Sorry this didn't help.
Great! Thanks for your feedback.
How satisfied are you with this reply?
Thanks for your feedback, it helps us improve the site.
How satisfied are you with this reply?
Thanks for your feedback.
Question Info
Last updated September 26, 2023 Views 8,620 Applies to: