在Word中用交互日历输入日期数据

　　在使用Word的表格功能时，常常会遇到“日期”域，Word能自动提供一定的日期，如当天的日期以及文档创建的日期。当需要填表人填写其它日期时，通过交互日历就能快速选定，如图1所示:

　　在属性窗口，将用户窗体的标题改为“日历”，接着，通过视图→代码窗口插入如下代码:

Private Sub UserForm_Activate() 
Me.Calendar1.Value = Date 
End Sub 
Private Sub Calendar1_Click() 
Selection.Text = Calendar1.Value 
End Sub

在模块中（如果没有，则选择插入→模块），添加代码：
Sub ChooseDate() 
UserForm1.Show 
End Sub

　　选择文件→关闭并返回到Microsoft Word。

　　在需要交互日历的地方，通过Ctrl+F9添加域，并输入如图4所示:　　最后通过F9对域代码进行切换，如图5所示:　　即得所需要的可对日期进行交互选择的表格，只需用鼠标双击相应的日期域即能通过日历选择到需要的日期。