下面的例子，給大家介紹的是，如何通過WORD文檔制作這樣的一種倒計(jì)時(shí)效果，比如，距離高考還有幾天幾分幾秒?！ ∮捎赪ORD沒有函數(shù)，因此，制作起來，非得使用VBA不可?！ ∈紫?，您先新建一個(gè)新的WORD文檔，然后，按下 ALT+F11 鍵，進(jìn)入到Microsoft visual basic界面。 之后，選擇界面中的Project下面的Thisdocumet 點(diǎn)擊右鍵，選擇“查看代碼”，會彈出一個(gè)編寫代碼的白色小窗體。 之后，在小窗體里面，直接輸入如下的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 & "小時(shí)" & mm & "分鐘" & ss & "秒" Selection.Collapse Direction:=wdCollapseEnd Application.OnTime Now + TimeValue("00:00:01"), "Timer" End If End Sub 之后，關(guān)閉Microsoft visual basic界面，回到WORD界面。
最后，在WORD界面中，執(zhí)行菜單操作： “工具”→“宏”→“宏”，選擇列表中的“Timer”，最后點(diǎn)擊“運(yùn)行”按鈕，這樣，距離高考還有幾天幾小時(shí)幾分幾秒的提示，就出現(xiàn)了，并且，還是動態(tài)的，隨時(shí)會更新天小時(shí)分秒哦 如果您想制作距離其它的時(shí)間倒計(jì)時(shí)，只需要修改上述的兩個(gè)地方： ?、?011, 6, 6，修改此目標(biāo)日期 ②"距離2011年高考還有："，修改此文字的提示 其它地方均不需要修改。
