尼彬杉

(承德石油高等专科学校 招生就业处，河北 承德 067000)

招生工作涉及到报考数据管理、录取数据管理、考生电子照片管理、通知书打印管理等部分，通过Office办公软件实现对电子照片、Word文档、Excel表格管理，既提高了办公效率，又保证了数据的准确性。以下以承德石油高等专科学校为例，介绍Office办公软件在高校招生工作中的“智慧化”应用。[1]

1 Excel VBA在招生工作中的应用

1.1 VBA简介

VBA，全称Visual Basic for Applications，是标准宏语言，通过编写VBA 程序代码，可以实现工作流程自动化，解决在工作中需要解决的实际问题。[2]

1.2 应用VBA批量提取Word表格中的数据

工作场景：以2019年为例，2019年高职院校实施扩招，扩招人数为100万人。学校承担了河北省高职扩招的招生任务，组织高职扩招过程中，需要考生现场报名并填写报考登记表(报考登记表统一设计为Word格式)。

任务需求：根据考生报考情况，假设60名考生填写了的Word报考登记表，需要将考生信息录入到Excel表格中，使用人工操作存在工作量大，容易出错。

任务规划与核心算法：将考生填写的Word文档存放在一个文件夹中，程序进入存放文档的文件夹，逐一扫描Word文档，提取文档中表格的信息(考生号、姓名、性别、身份证号、考生身份类别、报考专业代码、报考专业名称、通讯地址、邮政编码、收件人、手机号)写入到Excel报名汇总表格中。提取完一个考生Word文档后，继续提取下一个考生Word文档，直到所有的文档提取完毕。

图1为要扫描的报考登记表，如考生所填写的考生号，所在位置为第一行第二列，通过VBA提取考生号到Excel表格的相应行第一列，示例代码如下：Cells(i,1)=cy_text(cy_tab.Cell(1,2).Range.Text)。……