您的位置: 首页 > 软件教程 > Word2003教程专题 > 使用WORD制作距离高考倒计时的方法

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

7.0分
出处:网络 时间:2017-11-21

您可能感兴趣的话题: 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 Then  dd = ss 86400  ss = ss - dd * 86400  hh = ss 3600  ss = ss - hh * 3600  mm = ss 60  ss = ss - mm * 60  Selection.HomeKey Unit:=wdStory  Selection.EndKey Unit:=wdStory, Extend:=wdExtend  Selection.Text = "距离2011年高考还有:" & vbCrLf & dd & "天" & hh & "小时" & mm & "分钟" & ss & "秒"  Selection.Collapse Direction:=wdCollapseEnd  Application.OnTime Now + TimeValue("00:00:01"), "Timer"  End If  End Sub  之后,关闭Microsoft visual basic界面,回到WORD界面。

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

  最后,在WORD界面中,执行菜单操作:  “工具”→“宏”→“宏”,选择列表中的“Timer”,最后点击“运行”按钮,这样,距离高考还有几天几小时几分几秒的提示,就出现了,并且,还是动态的,随时会更新天小时分秒哦  如果您想制作距离其它的时间倒计时,只需要修改上述的两个地方:  ①2011, 6, 6,修改此目标日期  ②"距离2011年高考还有:",修改此文字的提示  其它地方均不需要修改。

网友评论

Word2003教程专题

精品软件课程
更多 >
Excel是office的重要组成部分。多特... [详细]
PPT(PowerPoint)是Office... [详细]
Excel是office的重要组成部分。最新... [详细]
Word是由Microsoft公司出版的文字... [详细]
Word是由Microsoft公司出版的文字... [详细]