如何实现题库中题目的格式处理？

weyawu

题库中有三种类型题目：单选、多选、判断，由于导入一个考试系统的需要，要将源题库中的题目，处理成目标题库中的格式类型（以红字标示是较源题库有变化的部分），由于题库量较大，如何通过VBA实现，急等高人帮助，谢谢。
题库处理.rar (25.39 KB, 下载次数: 57)

2016-9-28 12:22 上传

点击文件名下载附件

duquancai

1. Sub shishi()
   
2.     Dim Arng As Range
   
3.     Set Arng = ActiveDocument.Content
   
4.     With CreateObject("VBScript.Regexp")
   
5.         .Global = True: .MultiLine = True
   
6.         .Pattern = "(^\d+(?:(?!^\d).)+答案：[A-Z]\r)"
   
7.         Arng = .Replace(Arng, "题型:单选题" & vbCr & "$1")
   
8.         .Pattern = "(^\d+(?:(?!^\d).)+答案：)([A-Z])、([A-Z])、?([A-Z])?、?([A-Z])?"
   
9.         Arng = .Replace(Arng, "题型:多选题" & vbCr & "$1$2|$3|$4|$5")
   
10.         .Pattern = "\|\r": Arng = .Replace(Arng, vbCr)
    
11.         .Pattern = "(^\d+(?:(?!^\d).)+答案：(?:错误|正确))"
    
12.         Arng = .Replace(Arng, "题型:判断题" & vbCr & "$1")
    
13.     End With
    
14. End Sub

复制代码

duquancai

请下载附件，打开Word文件，点击执行按钮》》》》》》》》》》》》》

weyawu

duquancai 发表于 2016-9-28 18:36
请下载附件，打开Word文件，点击执行按钮》》》》》》》》》》》》》

好用，明天上班用大题量题库试试，多谢啊！