返回或设置应用于字体的动态效果类型。WdAnimation，可读写。
| WdAnimation 可以是下列 WdAnimation 常量之一： |
| wdAnimationBlinkingBackground |
| wdAnimationLasVegasLights |
| wdAnimationMarchingRedAnts |
| wdAnimationShimmer |
| wdAnimationMarchingBlackAnts |
| wdAnimationNone |
| wdAnimationSparkleText |
expression.Animation
expression 必需。该表达式返回“应用于”列表中的一个对象。
本示例为新文档中的文本设置动态效果。
Dim docNew As Document
Set docNew = Documents.Add
With docNew.Content
.InsertAfter "This is a test of animation."
.Font.Animation = wdAnimationLasVegasLights
End With本示例为选定文本设置动态效果。
If Selection.Type = wdSelectionNormal Then
Selection.Font.Animation = wdAnimationShimmer
Else
MsgBox "You need to select some text."
End If