摘 要：笔者根据教学管理及实施工作的需要，利用Word VBA技术设计开发了日历式教学课表，旨在服务于教育工作者，提高工作效率。
　　关键词：Word；VBA；日历；教学课表模板
　　中图分类号：G434 文献标识码：B 文章编号：1673-8454(2008)10-0042-04
　　
　　教学准备是整个教学活动的基础环节。每学期的期末都是下一教学活动的教学准备期，其中，根据院校新学期课表计划，制定各课程教学小课表是一项重要工作。由于课表内容繁琐，对制表人员责任心、细致程度要求较高，因此，根据课程需要制定教学课表成为大多课程负责人较为为难的问题。通常，教学课表仅是简单利用表格统计了每节课的实施要素，如日期、时间、授课内容、授课教员、授课地点等，但具体教学实施过程中，无论教员还是教学督导检查人员使用起来不够清晰明朗，所以，根据教学管理及实施工作的需要，设计开发日历式教学课表模板显得尤为必要。
　　
　　 一、总体设计
　　
　　结合广大用户使用的教学文件格式，本文采用Word VBA技术在常规办公软件Word的基础上二次开发，目的是能够以日历的方式显示每周的教学活动，通常每月为一个报表，每天中能够体现上午和下午两个时段。该日历能够自动创建，具体教学活动由人工输入。
　　虽然，通过Word自带的日历向导也能够创建日历，但创建的结果不适宜制作课表，即便使用也需大量的修改工作，反而降低了工作效率，所以本文利用VBA开发设计了日历式教学课表模板，开发环境为Word自带的Visual Basic 编辑器。
　　
　　 二、实现过程及源码
　　
　　 课表模板的实现主要体现为以下三个环节。
　　 1. 日历数据初始化
　　日历数据初始化即初始化时间年限中，某年的每个月由几天，有无闰月，每月的第一天是星期几；若需要农历相关信息还需初始化某天对应的农历日期；若需要节假日信息还需初始化某假日对应的日期等。本文通过Initialize()过程、SolarDays(ByVal Y As Integer, ByVal m As Integer)、Function GetMonthWeek(ByVal sDate As Date)函数来实现，其部分主要源码如下：
　　 数据初始化
　　 Private Sub Initialize()
　　 Dim strTmp As String
　　 LunarInfo(0) =