- word文档转成ppt教程:Word2007表格怎么绘制斜线表头及样式
- wordpress教程:怎样往Word2007里面添加项目编号样式
- word制作表格教程基础入门:Word2007中如何实现小数点对齐
- word安装教程:word找不到标尺怎么办?
下面的例子,给大家介绍的是,如何通过WORD文档制作这样的一种倒计时效果,比如,距离高考还有几天几分几秒。
由于WORD没有函数,因此,制作起来,wordpress教程,非得使用VBA不可。
首先,WORD上下页,您先新建一个新的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”,最后点击“运行”按钮,这样,距离高考还有几天几小时几分几秒的提示,word教程基础入门,就出现了,并且,还是动态的,随时会更新天小时分秒哦
上一篇:word文档画图教程:Word创建虚拟文本查看打印区域填满文字的效果 下一篇:word制作简历教程:使用WORD制作距离高考倒计时
郑重声明:本文版权归原作者所有,转载文章仅为传播更多信息之目的,如作者信息标记有误,请第一时间联系我们修改或删除,多谢。