在Word2007下设置文字效果

用Word2007打开文档，选中需要设置文字效果的文字；

按组合键Alt+F11，调出“Microsoft Visual Basic”对话框

在“Microsoft Visual Basic”对话框左下角的“立即窗口”中输入下面的代码后回车： Selection.Font.Animation=wdAnimationMarchingRedAnts 如图：

上面是红色蚂蚁线的效果（赤水情深），Word2003中所有文字效果对应代码如下： 赤水情深Selection.Font.Animation=wdAnimationMarchingRedAnts乌龙绞柱Selection.Font.Animation=wdAnimationMarchingBlackAnts七彩霓虹Selection.Font.Animation= wdAnimationLasVegasLights闪烁背景Selection.Font.Animation=wdAnimationBlinkingBackground亦幻亦真Selection.Font.Animation= wdAnimationShimmer礼花绽放Selection.Font.Animation=wdAnimationSparkleText应用时，只需要将第3步代码替换即可。

能设置文字效果，自然也能取消，方法同上，只需将第3步的代码换成下面这行就可以了。Selection.Font.Animation=wdAnimationNone

也可以用下面方法取消文字效果：打开word，Alt+F11,在弹出窗口“Microsoft Visual Basic”中，插入模块，粘贴以下代码Sub 取消文字效果() Selection.Font.Animation = wdAnimationNoneEnd Sub