论文部分内容阅读
2008年第3期题目2挑战任务是填写表格，出于对格式的统一，需要对表格项中的所填内容进行限制。
想完成此挑战题目的要求，我们可以使用Word中的Visual Basic编辑器(以下简称VBA)。
如果系统中没有安装VBA程序，需要准备Office安装光盘并从中添加VBA程序:在Word中点击“工具→宏→Visual Basic编辑器”菜单项，再根据安装过程软件的提示，就可以完成VBA程序的安装了。
第一步:打开Word，根据具体需求，制作一表格，需要录入日期的单元格不填写任何内容(见图1)。
第二步:选择“工具→宏→Visual Basic编辑器”菜单项，然后选择“视图→工具箱”，弹出“工具控件”浮动工具箱。鼠标右键单击“工具箱”空白处，选择“添加控件”，在“可用控件”列表中，找到并双击“Calendar Control 8.0”(日历控件8.0)，然后单击“确定”(见图2)。
第三步:选择“插入→用户窗体”，VBA会自动填写一个空白用户窗体，如UserForm1，单击“工具箱”中的Calendar控件，用鼠标左键在此用户窗体中绘制出此日历控件的大小，放开鼠标左键即可完成在窗体中添加日历控件的操作。
小提示
在调整日历控件大小时，请注意调整窗体与控件的大小比例，使其更加美观。个人认为，可将控件大小与窗体大小设置成同样大小，并适当调整窗体的显示位置。
第四步:双击日历控件，VBA会弹出代码窗口，将如下代码录入到代码窗口中。
Private Sub Calendar1_Click()
Selection.Text = Calendar1.Value
End Sub
Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End Sub
第五步:双击模块1(若没有此模块，请选择“插入→模块”项)，VBA会弹出代码窗口，将如下代码录入到代码窗口中(见图3)。
Sub ChooseDate()
UserForm1.Show
End Sub
最后，选择菜单中的“文件→关闭”项，回到Word窗口。
第六步:在本例中，需要录入日期的单元格为“毕业日期”和“到职日期”。将光标置于“毕业日期”后的单元格，选择“插入→域”，单击“域代码”，在“域名”列表中选择“Macrobutton”，在“宏名”列表中选择“ChooseDate”，在“显示文字”中写入“毕业日期”(不含引号)(见图4)，“确定”即可。对于“到职日期”的操作方法，可参照如上操作，只需将显示文字部分改为“到职日期”即可。
上述操作完毕后，当鼠标单击“毕业日期”时，文字背景显示为灰色。而用鼠标双击“毕业日期”，Word会自动弹出“日历控件”对话框，选择年、月和日期后，单击“关闭”按钮即可完成日期的录入过程。因为无需手工录入，所以避免了内容格式不一致而对工作造成的麻烦。
小提示
只有在VBA程序中，向工具箱中添加“Calendar Control 8.0”后，在Word 的域代码部分才可以查找ChooseDate项目，否则不会显示此项目。
想完成此挑战题目的要求，我们可以使用Word中的Visual Basic编辑器(以下简称VBA)。
如果系统中没有安装VBA程序，需要准备Office安装光盘并从中添加VBA程序:在Word中点击“工具→宏→Visual Basic编辑器”菜单项，再根据安装过程软件的提示，就可以完成VBA程序的安装了。
第一步:打开Word，根据具体需求，制作一表格，需要录入日期的单元格不填写任何内容(见图1)。
第二步:选择“工具→宏→Visual Basic编辑器”菜单项，然后选择“视图→工具箱”，弹出“工具控件”浮动工具箱。鼠标右键单击“工具箱”空白处，选择“添加控件”，在“可用控件”列表中，找到并双击“Calendar Control 8.0”(日历控件8.0)，然后单击“确定”(见图2)。
第三步:选择“插入→用户窗体”，VBA会自动填写一个空白用户窗体，如UserForm1，单击“工具箱”中的Calendar控件，用鼠标左键在此用户窗体中绘制出此日历控件的大小，放开鼠标左键即可完成在窗体中添加日历控件的操作。
小提示
在调整日历控件大小时，请注意调整窗体与控件的大小比例，使其更加美观。个人认为，可将控件大小与窗体大小设置成同样大小，并适当调整窗体的显示位置。
第四步:双击日历控件，VBA会弹出代码窗口，将如下代码录入到代码窗口中。
Private Sub Calendar1_Click()
Selection.Text = Calendar1.Value
End Sub
Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End Sub
第五步:双击模块1(若没有此模块，请选择“插入→模块”项)，VBA会弹出代码窗口，将如下代码录入到代码窗口中(见图3)。
Sub ChooseDate()
UserForm1.Show
End Sub
最后，选择菜单中的“文件→关闭”项，回到Word窗口。
第六步:在本例中，需要录入日期的单元格为“毕业日期”和“到职日期”。将光标置于“毕业日期”后的单元格，选择“插入→域”，单击“域代码”，在“域名”列表中选择“Macrobutton”，在“宏名”列表中选择“ChooseDate”，在“显示文字”中写入“毕业日期”(不含引号)(见图4)，“确定”即可。对于“到职日期”的操作方法，可参照如上操作，只需将显示文字部分改为“到职日期”即可。
上述操作完毕后，当鼠标单击“毕业日期”时，文字背景显示为灰色。而用鼠标双击“毕业日期”，Word会自动弹出“日历控件”对话框，选择年、月和日期后，单击“关闭”按钮即可完成日期的录入过程。因为无需手工录入，所以避免了内容格式不一致而对工作造成的麻烦。
小提示
只有在VBA程序中，向工具箱中添加“Calendar Control 8.0”后，在Word 的域代码部分才可以查找ChooseDate项目，否则不会显示此项目。