下面的例子，给大家介绍的是，怎么删除word空白页，如何通过WORD文档制作这样的一种倒计时效果，比如，距离高考还有几天几分几秒。

由于WORD没有函数，因此，制作起来，非得使用VBA不可。

首先，您先新建一个新的WORD文档，然后，按下 ALT+F11 键，进入到Microsoft visual basic界面。

之后，选择界面中的Project下面的Thisdocumet 点击右键，选择“查看代码”，word教程网，会弹出一个编写代码的白色小窗体。

之后，在小窗体里面，word教程网，直接输入如下的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文档转成ppt教程：word表格不会重新计算的解决办法

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。