使用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年高考還有："，修改此文字的提示

　　其它地方均不需要修改。