驴皮影
测试通过,操作同上:Sub Timer()s = DateDiff("s", Now, DateSerial(2010, 12, 31) + TimeSerial(24, 0, 0))dd = Int(s / (86400))s = s - dd * 86400hh = Int(s / 3600)s = s - hh * 3600mm = Int(s / 60)s = s - mm * 60ss = sSelection.HomeKey Unit:=wdStorySelection.EndKey Unit:=wdStory, Extend:=wdExtendSelection.Text = "距离2010年元旦还有" & vbCrLf & dd & "天" & hh & "小时" & mm & "分钟" & ss & "秒"Selection.Collapse Direction:=wdCollapseEndApplication.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 * 86400hh = Int(s / 3600)s = s - hh * 3600mm = Int(s / 60)s = s - mm * 60ss = s TextBox1.Value = "距离2010年元旦还有" & dd & "天" & hh & "小时" & mm & "分钟" & ss & "秒"Application.OnTime Now + TimeValue("00:00:01"), "Timer"End Sub你能不能直接做一个WORD表格发到我邮箱?