aspose word copy 获取某页的内容_ExcelVBA_040 与Word交互创建个性化易错题试卷

最新推荐文章于 2023-04-28 09:41:48 发布

晗小呆

最新推荐文章于 2023-04-28 09:41:48 发布

阅读量297

点赞数

文章标签： aspose word copy 获取某页的内容

本文链接：https://blog.csdn.net/weixin_29732737/article/details/112105613

版权

本文介绍如何通过ExcelVBA结合Aspose Word库，根据学生错题情况，生成含有特定易错题目的个性化加练试卷。教师可以利用学生错误选项分布，匹配预先准备的易错题文档，最终形成针对每个学生的不同加练题目组合，旨在提高学习效果。

摘要由CSDN通过智能技术生成

一、需求说明：

目前市面上，很多教育类App都具有这样的功能，在一个学生完成习题后，继续推送同类型的易错题，让学生反复加强，进而优化学习效果。

有个教师朋友在考试后，也想通过ExcelVba实现相似的功能，根据学生的错题，生成一份个性化加练题，不断优化个体学习效果。

需要准备的材料：

1、每位学生的错误选项分布，出现字母的为做错的，空白为正确。

2、部分需要加练的易错题，每个文件里只有一组题或者一类题，文件名以序号+知识点关键词命名(序号与错题的序号对应)作为新的出题库。

如第一个文档文件名为：1河流与等高线，意思就是做错第一题的同学，需要加练这个文档内的练习，练习的知识点为河流与等高线

3、word文档内部，已经做好了排版工作。

二、实现思路

先用字典保存加练题word文档序号与路径，再根据每位学生的答题对错情况，拼凑成一份个性化文档。

三、实现代码

Sub 创建个性化练习()    '声明变量    Dim FolderPath, FileName, FilePath, FilePaths    Dim no, wdApp, doc, stdPath, stdName, resDoc    Dim Wb As Workbook    Dim Sht As Worksheet    '连接当前工作簿    Set Wb = Application.ThisWorkbook    '保存工作簿路径    FolderPath = ThisWorkbook.Path & "\"    '连接指定工作表    Set Sht = Wb.Worksheets("个人错误选项")                                                                                                                              '声明并创建个字典用于保存推送试题文档