Animation Property Example

This example animates the text in a new document.

Set newDoc = Documents.Add
With newDoc.Content
    .InsertAfter "This is a test of animation."
    .Font.Animation = wdAnimationLasVegasLights
End With

This example animates the selected text.

If Selection.Type = wdSelectionNormal Then
    Selection.Font.Animation = wdAnimationShimmer
Else
    MsgBox "You need to select some text."
End If