返回或设置应用于字体的动态效果类型。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