经验总结

  1. 首页 > 生活 > >

使用WORD制作距离高考倒计时的方法

知识经验word技巧

【使用WORD制作距离高考倒计时的方法】

使用WORD制作距离高考倒计时的方法

文章插图

下面的例子，给大家介绍的是，如何通过WORD文档制作这样的一种倒计时效果，比如，距离高考还有几天几分几秒 。由于WORD没有函数，因此，制作起来，非得使用VBA不可 。首先，您先新建一个新的WORD文档，然后，按下 ALT+F11 键，进入到Microsoft visual basic界面 。之后，选择界面中的Project下面的Thisdocumet 点击右键，选择“查看代码”，会弹出一个编写代码的白色小窗体 。之后，在小窗体里面，直接输入如下的VBA代码：Sub Timer()ss = DateDiff("s", Now, DateSerial(2011, 6, 6) + TimeSerial(24, 0, 0))If ss >= 0 Thendd = ss 86400ss = ss - dd * 86400hh = ss 3600ss = ss - hh * 3600mm = ss 60ss = ss - mm * 60Selection.HomeKey Unit:=wdStorySelection.EndKey Unit:=wdStory, Extend:=wdExtendSelection.Text = "距离2011年高考还有：" & vbCrLf & dd & "天" & hh & "小时" & mm & "分钟" & ss & "秒"Selection.Collapse Direction:=wdCollapseEndApplication.OnTime Now + TimeValue("00:00:01"), "Timer"End IfEnd Sub之后，关闭Microsoft visual basic界面，回到WORD界面 。
最后，在WORD界面中，执行菜单操作：“工具”→“宏”→“宏”，选择列表中的“Timer”，最后点击“运行”按钮，这样，距离高考还有几天几小时几分几秒的提示，就出现了，并且，还是动态的，随时会更新天小时分秒哦如果您想制作距离其它的时间倒计时，只需要修改上述的两个地方：①2011, 6, 6，修改此目标日期②"距离2011年高考还有："，修改此文字的提示其它地方均不需要修改 。

    经验总结扩展阅读


    上一篇：word中图片怎么设置透明?

    下一篇：如何一次性清除Word2003文档中的超链接?