[求助][讨论]VBA高手请看看守柔 konggs

zgzxp · 发表于 2006-4-25 20:32

附件中的代码是提取试卷中的答案但为什么不能提取第一大题的最后一小题的答案阿看得我头都大了帮忙看看

[此贴子已经被作者于2006-4-26 19:07:23编辑过]

konggs · 发表于 2006-4-25 21:03

简单的写了一下，供参考 Sub 取答案() Dim a As Range, b%, astring As String astring = ActiveDocument.Range(ActiveDocument.Range.Start, ActiveDocument.Paragraphs(5).Range.End) b = 1 For Each a In ActiveDocument.Range.Characters If a.Font.Color = wdColorBlue And a <> " " Then MsgBox a astring = astring & Chr(32) & Chr(32) & b & "." & a b = b + 1 End If Next Documents.Add Selection.InsertBefore astring End Sub

[此贴子已经被作者于2006-4-25 21:09:29编辑过]

konggs · 发表于 2006-4-25 21:10

上面应该是

If a.Font.Color = wdColorBlue And a<>" " Then

这个"<>"被论坛屏蔽掉了，楼主复制时加上。

zgzxp · 发表于 2006-4-25 23:35

谢谢konggs

但是附件中的代码什么地方不对呢？

感谢

konggs · 发表于 2006-4-26 07:48

什么地方不对？

太繁了，还有就是在我机子基本是对的。

但太慢了。当机都有可能的。

zgzxp · 发表于 2006-4-26 12:49

就是对于有多个大题时选择题的最后一小题不能提取答案，你运行就可以看见了

[此贴子已经被作者于2006-4-26 19:07:41编辑过]

zgzxp · 发表于 2006-4-26 18:25

konggs的代码只能提取选择题型

如果有填空题就会有问题（每个字符都看成一个小题）

附件中的代码可以处理填空题型，但就是当有多个大题出现时，不能提取第一大题的最后一小题的答案

konggs · 发表于 2006-4-26 18:53

我晕了，你不传要完整提取的文档，只给这个。[em06]

zgzxp · 发表于 2006-4-26 19:07

一楼的附件就是阿

现在我重新作了一个

没有问题了

好像是和答案中的空格有关

传上来你给看看

zgzxp · 发表于 2006-4-26 19:08

这个例子是可以的

[此贴子已经被作者于2006-4-26 23:36:53编辑过]

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

[求助][讨论]VBA高手请看看 守柔 konggs

[求助][讨论]VBA高手请看看守柔 konggs