欢迎来到科站长!

office激活

当前位置: 主页 > 网站运营 > office激活

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

时间:2025-05-10 15:49:13|栏目:office激活|点击:

下面的例子,给大家介绍的是,如何通过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界面中,执行菜单操作:

“工具”→“宏”→“宏”,选择列表中的“Timer”,最后点击“运行”按钮,这样,距离高考还有几天几小时几分几秒的提示,就出现了,并且,还是动态的,随时会更新天小时分秒哦

如果您想制作距离其它的时间倒计时,只需要修改上述的两个地方:

①2011, 6, 6,修改此目标日期

②"距离2011年高考还有:",修改此文字的提示

其它地方均不需要修改。


上一篇:如何使用Word2010"拼音指南"快速认识生僻字

栏    目:office激活

下一篇:word表格不会重新计算的解决办法

本文标题:使用WORD制作距离高考倒计时

本文地址:https://www.fushidao.cc/wangzhanyunying/13960.html

广告投放 | 联系我们 | 版权申明

申明:本站所有的文章、图片、评论等,均由网友发表或上传并维护或收集自网络,属个人行为,与本站立场无关。

如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

联系QQ:257218569 | 邮箱:257218569@qq.com

Copyright © 2018-2025 科站长 版权所有冀ICP备14023439号