使用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界面中,执行菜单操作:
“工具”→“宏”→“宏”,选择列表中的“Timer”,最后点击“运行”按钮,这样,距离高考还有几天几小时几分几秒的提示,就出现了,并且,还是动态的,随时会更新天小时分秒哦
如果您想制作距离其它的时间倒计时,只需要修改上述的两个地方:
①2011, 6, 6,修改此目标日期
②"距离2011年高考还有:",修改此文字的提示
其它地方均不需要修改。
您可能感兴趣的文章
- 07-012025最新office2010永久激活码免费分享,附office 2010激活工具
- 07-01怎么免费获取2025最新office2016专业增强版永久激活密钥/序列号
- 07-01office365怎么永久激活?2025.5最新office,office365序列号推荐 附激活工具
- 07-01office 2021激活码/序列号推荐,office2021附激活工具
- 07-01最新office2021/2020激活密钥怎么获取 office激活码分享 附激活工具
- 07-01office2021激活密钥2021家庭版,适合大家办公家庭使用
- 07-01如何下载安装激活使用Office2021,分享下载安装激活Office2021
- 07-01激活码分享:office2016及2021专业版激活方法
- 07-01office2021永久激活密钥怎么免费获取
- 07-01office2021专业增强版2021激活密钥2023密钥永久激活 万能office2021密钥25位


阅读排行
- 12025最新office2010永久激活码免费分享,附office 2010激活工具
- 2怎么免费获取2025最新office2016专业增强版永久激活密钥/序列号
- 3office365怎么永久激活?2025.5最新office,office365序列号推荐
- 4office 2021激活码/序列号推荐,office2021附激活工具
- 5最新office2021/2020激活密钥怎么获取 office激活码分享 附激活工具
- 6office2021激活密钥2021家庭版,适合大家办公家庭使用
- 7如何下载安装激活使用Office2021,分享下载安装激活Office2021
- 8激活码分享:office2016及2021专业版激活方法
- 9office2021永久激活密钥怎么免费获取
- 10office2021专业增强版2021激活密钥2023密钥永久激活 万能office202
推荐教程
- 11-30正版office2021永久激活密钥
- 11-25怎么激活office2019最新版?office 2019激活秘钥+激活工具推荐
- 11-22office怎么免费永久激活 office产品密钥永久激活码
- 11-25office2010 产品密钥 永久密钥最新分享
- 11-22Office2016激活密钥专业增强版(神Key)Office2016永久激活密钥[202
- 11-30全新 Office 2013 激活密钥 Office 2013 激活工具推荐
- 11-25正版 office 产品密钥 office 密钥 office2019 永久激活
- 11-22office2020破解版(附永久密钥) 免费完整版
- 11-302023 全新 office 2010 标准版/专业版密钥
- 03-262024最新最新office365激活密钥激活码永久有效