求助word下划线上答案内容提取！

415552258 · 发表于 2012-4-18 14:10

我现在有一些学生做的试题，内容和格式如下：

1,北京位于华北平原西北的边缘,离天津新港 162 千米,它的西面有属于太行山余脉____的西山,北面有燕山山脉.
2,悠久的历史为北京留下了无数名胜古迹,长城, 长城, 明十三陵_,_故宫博物院_，周口店北京猿人遗址 ,颐和园 _,天坛等先后被列入了世界遗产名录.

我想要用VB或者VBA顺序提取下划线的内容并与标准答案对比，并输出结果到一个word或者txt文本，现在主要是如何提取下划线的内容不知道如何下手啊，请高手指导下，谢谢了！

415552258 · 发表于 2012-4-18 14:15

示例文件如下：

415552258 · 发表于 2012-4-18 16:51

怎么没人回答啊，顶一下！

kqbt · 发表于 2012-4-18 16:54

对比的答案在哪里？附件里没见到，建议上传完整的附件。

八宝粥6868 · 发表于 2012-4-18 18:38

有一个办法可能离你的要求远点，但在暂时无其它方法的情况下不妨一试。
光标点在任意带下划线的文字处，右键---最下方---选择格式相似的文字---复制----新文档粘贴，带下划线的文字全部提取出来了。只不过可能需手工整理一下。

415552258 · 发表于 2012-4-18 21:32

kqbt 发表于 2012-4-18 16:54
对比的答案在哪里？附件里没见到，建议上传完整的附件。

谢谢哈，现在上传完整的例子，我希望实现相当于自动改试卷的功能，但是是在word中，附件中有三个文件，doc格式的文件是考试试题的例子，我希望从其中提取出下划线上学生填写了的答案并与《用于对比的试题答案》中的答案进行对比，最后得出如《考试成绩》中所示格式的成绩单，请大侠多多指导咯，想用VB或者VBA实现，我现在特别想知道如何提取下划线上学生填写的内容咯，在VB中如何识别呢，谢谢哈！完整例子在附件中！！！

如何实现自动改卷.rar (2.92 KB, 下载次数: 100)

gangone · 发表于 2012-4-18 22:18

看看这个怎么样，答案输出到其他文档自己改下代码

需处理文件示例.rar (10 KB, 下载次数: 471)

415552258 · 发表于 2012-4-18 22:33

gangone 发表于 2012-4-18 22:18
看看这个怎么样，答案输出到其他文档自己改下代码

太感谢你了，要的就是这个效果，基本上已经实现了！谢谢你咯，好好研究下你的代码哈哈！

kqbt · 发表于 2012-4-18 23:11

不错，有时间也想自己写一个试试

415552258 · 发表于 2012-4-19 09:10

kqbt 发表于 2012-4-18 23:11
不错，有时间也想自己写一个试试

赶快写吧，完了给我们分享下，谢谢！

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

求助word下划线上答案内容提取！

点评

评分