摘要： 下面的例子，给大家介绍的是，如何通过WORD文档制作这样的一种倒计时效果，比如，距离高考还有几天几分几秒。 由于WORD没有函数，因此，制作起来，非得使用VBA不...
下面的例子，给大家介绍的是，如何通过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
word表格不会重新计算的解决办法
word表格不会重新计算的解决办法 我们都知道，在Word里插入了一个表格并数据相应的数字之后，我们可以使用自动求和的办法对对表格中整列进行求和计算。 相关的WORD表格求和的文章，请参阅：http://www.dzwebs.net/1084.html 然而，当我们对WORD表格内单元格的数据又进行了修改之后，其结果并没有象Excel那样在更改单元格数据后自动重新计算结果。 在Word中，默认情况下，更改了表格中的数据后，相关单元格中的数据并不会自动重新计算结果并更新。 如果需要自动重新计算结果并更新，需
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年高考还有："，修改此文字的提示
其它地方均不需要修改。
Word/Outlook 2010不是系统默认输入法怎么办
Word/Outlook 2010不是系统默认输入法怎么办 Office 2010 安装完毕之后，我们通常在使用中会遇到这样的问题，当我们打开Word以及Outlook时，所加载的输入法并非是我们所设置的默认输入法。如：我们在控制面板-区域和语言中，将默认输入法设置为其他第三方输入法，但是Word所加载的默认输入为微软输入法。那么，如何使Word、Outlook所加载的输入法与系统同步呢? 在微软的帮助找到了答案，现在就分享给那些有同样困惑的友友： 若系统默认使用的中文输入法，我们可以尝试打开Word时默
