Sparkly text YAY

Today I learned how to run/record a macro all by myself (and via help of the internet); and I was able to find this AWESOME text I used to write with all the time… IT HAS SPARKLES!!!!!!!!!!!!! J It was an exciting adventure…. Guess I know a little more about computer science than I thought. ;D !!!!! However; the only downside is.. that I don't know how to carry it over to other documents like this blogpost for example.

Here's the macro: :)

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