WORD题库转换成电子表格

考试加油站 · 发表于 2013-12-5 09:59

WORD题库转换成电子表格

WORD题库转换成电子表格.zip (10.91 KB, 下载次数: 298)

chxw68 · 发表于 2013-12-5 11:54

Sub test()
Dim wordapp As Object
Dim mydoc As Word.Document
Dim reg As Object
Dim i%, r%
Dim arr(1 To 200, 1 To 9)
Set reg = CreateObject("vbscript.regexp")
Set wordapp = CreateObject("word.application")
With reg
.Global = True
.MultiLine = True
.Pattern = "\b[A-Z]\..*?\x20"
End With
Set mydoc = wordapp.Documents.Open(ThisWorkbook.Path & "" & "word题库.doc")
m = 0
For i = 1 To mydoc.Paragraphs.Count
ss = mydoc.Paragraphs(i).Range.Text
If Left(ss, 1) Like "[0-9]" Then
m = m + 1
c = 4
arr(m, 3) = ss
End If
If Left(ss, 1) Like "[A-Z]" Then
Set matchs = reg.Execute(ss)
For j = 0 To matchs.Count - 1
arr(m, j + c) = matchs(j)
Next
c = c + matchs.Count
End If
Next
Range("a2").Resize(UBound(arr), 9) = arr
mydoc.Close False
wordapp.Quit
End Sub

复制代码

chxw68 · 发表于 2013-12-5 11:55

你试试看。

考试加油站 · 发表于 2013-12-5 13:29

chxw68 发表于 2013-12-5 11:55
你试试看。

论坛真是能人倍出啊，谢谢您了。

考试加油站 · 发表于 2013-12-5 13:54

chxw68 发表于 2013-12-5 11:55
你试试看。

本来这次想拿您的当模板做的，结果刚才换一个WORD，好像只能导出题干，什么原因。
能不能做一个适用范围广一点的，针对日常WORD版习题集可能出现的情况。谢谢。
WORD题库转换成电子表格.rar (19.92 KB, 下载次数: 48)

2013-12-5 13:53 上传
点击文件名下载附件

chxw68 · 发表于 2013-12-5 15:43

因为Word格式的文件随意性很大，所以这种转换程序只能针对具体情况专门设计。

考试加油站 · 发表于 2013-12-5 16:23

本帖最后由考试加油站于 2013-12-5 16:35 编辑

chxw68 发表于 2013-12-5 15:43
因为Word格式的文件随意性很大，所以这种转换程序只能针对具体情况专门设计。

谢谢，我仔细看了你两次代码，怎么没看出来修改哪些地方，这样也好看出错在哪？这样换试题不行的话，我好自己修改，如换试题又不行了。应当修改哪些地方代码。谢谢

复件 WORD题库转换成电子表格3.rar (19.96 KB, 下载次数: 94)

chxw68 · 发表于 2013-12-5 16:44

修改的是正则表达式。

考试加油站 · 发表于 2013-12-5 16:51

chxw68 发表于 2013-12-5 16:44
修改的是正则表达式。

哈，是哪一个代码，具体。楼上那个附件又不行了，给看看。

chxw68 · 发表于 2013-12-5 17:28

考试加油站发表于 2013-12-5 16:51
哈，是哪一个代码，具体。楼上那个附件又不行了，给看看。

你的Word试题到底是哪一个？为什么总是变来变去呀？这个程序不能通用的。

		自动登录	找回密码
密码			免费注册

[求助] WORD题库转换成电子表格

评分