一、Excel相關表格的建立　　首先啟動Excel 2007，在A1單元格輸入“日期”，然後在A2單元格輸入“2008-1-17”。選中此單元格，按下右鍵，向下拖動該單元格的填充控制代碼至A144單元格，鬆開右鍵，在彈出的快捷選單中點選“以天數填充”命令，如圖2所示，則可以得到自1月17日至6月7日的所有日期。　　圖2 Excel 2007執行以天數填充　　在B1單元格輸入“日”，在B2單元格輸入公式“=TEXT(A2,"dd日")”，17回車後就可以得到相應的日期（17日）。在C1單元格輸入“月”，並在C2單元格輸入公式“=TEXT(A2,"mm月")”，回車後即可得到用兩位數表示的相應的月份（01月）。那麼怎樣得到這天是星期幾呢？在D1單元格輸入“周”，然後在D2單元格輸入公式“=TEXT(A2,"[DBNum1]aaaa")”，回車後就可以得到用中文表示的星期幾了。最後，在E1單元格輸入“倒計時”，然後在E2單元格輸入公式“="2008-6-7"-A2”，回車後就可以得到今天距高考的天數了。所得的結果如圖3所示。　　圖3 Excel 2007鍵入倒計時公式　　至此，在Excel中的工作就可以宣告結束了，將其儲存備用。　　需要說明的是上述公式中的TEXT函式是為了指定相應單元格的格式，並將數字轉化成文字。　　二、Word中的郵件合併　　啟動Word 2007，新建一個檔案。首先應點選功能區“頁面佈局”選項卡中的相應按鈕，設定頁面及頁邊距等。我們可以根據需要進行相關設定，這裡就不羅嗦了。　　然後點選功能區“插入”選項卡“表格”功能組中“表格”按鈕，插入一個三行一列的表格。在第一行中輸入文字“今天是”，在第三行中輸入文字“距離高考還有天”。分別設定好字型、字號等。　　將滑鼠定位於第二行，點選功能區“郵件”選項卡“開始郵件合併”功能組中的“選擇收件人”按鈕，在彈出的選單中點選“使用現有列表”命令，然後在彈出的對話方塊中找到我們準備好的Excel檔案，雙擊。在開啟的“選擇表格”對話方塊中選擇資料所在的工作表，並確認下方的“資料首行包含列標題”複選項處於選中狀態，如圖4所示。點選“確定”按鈕關閉對話方塊。　　圖4 Word 2007選擇表格　　再點選功能區“郵件”選項卡“編寫和插入域”功能組中“插入合併域”按鈕右下角的小三角形，在彈出的列表中依次點選“月”、“日”、“周”，插入相應的域。　　再將滑鼠定位於第三行中“距離高考還有”和“天”之間，再次點選“郵件”選項卡“編寫和插入域”功能組中“插入合併域”按鈕右下角的小三角形，在彈出選單中點選“倒計時”，插入相應的域。選中相應的域符號，並進行相應的格式設定，即可得到如圖5所示的結果。　　圖5 Word 2007編寫和插入域　　點選“郵件”選項卡“預覽結果”功能組中“預覽結果”按鈕，可以看到製作的效果。　　感覺滿意的話，那麼點選“郵件”選項卡“完成”功能組的“完成併合並”按鈕右下角小三角形，在彈出選單中點選“編輯單個文件”命令，在開啟的“合併到新文件”對話方塊中選擇“全部”單選項，如圖6所示。　　圖6 Word 2007郵件合併　　當然，我們也可以在對話方塊的輸入框中指定合併的記錄起止數。點選“確定”按鈕後就可以了。

測試透過，操作同上：

Sub Timer()

s = DateDiff("s", Now, DateSerial(2010, 12, 31) + TimeSerial(24, 0, 0))

dd = Int(s / (86400))

s = s - dd * 86400

hh = Int(s / 3600)

s = s - hh * 3600

mm = Int(s / 60)

s = s - mm * 60

ss = s

Selection.HomeKey Unit:=wdStory

Selection.EndKey Unit:=wdStory, Extend:=wdExtend

Selection.Text = "距離2010年元旦還有" & vbCrLf & dd & "天" & hh & "小時" & mm & "分鐘" & ss & "秒"

Selection.Collapse Direction:=wdCollapseEnd

Application.OnTime Now + TimeValue("00:00:01"), "Timer"

End Sub

此外：你還可以在word裡面插入一個文字框，將結果輸出到文字框中，就不影響word的正常使用了，（備註要停止執行，在sub前面加個“"”）程式碼改為：

Sub Timer()

s = DateDiff("s", Now, DateSerial(2010, 12, 31) + TimeSerial(24, 0, 0))

dd = Int(s / (86400))

s = s - dd * 86400

hh = Int(s / 3600)

s = s - hh * 3600

mm = Int(s / 60)

s = s - mm * 60

ss = s

TextBox1.Value = "距離2010年元旦還有" & dd & "天" & hh & "小時" & mm & "分鐘" & ss & "秒"

Application.OnTime Now + TimeValue("00:00:01"), "Timer"

End Sub