如何在word格式题库中随机抽取部分题目形成试卷

sakyu · 发表于 2010-6-24 11:19

原帖由 sylun 于 2010-6-23 15:34 发表

对比一下每题排版格式开头的字符特征，可看出新附件有两点不同，一是选项字母用小写，二是当中使用了几个空格。
因此，可将2楼程序中涉及查找替换的几行代码作如下修改：
1.　将.Text = "^13[（(][ABCD]@[）)] ...

非常感谢sylun兄的指点，根据你的提示修改后还是没有运行成功，不过我把答案放到题后，用你给tang兄的提示，可以实现随机抽取了。非常感谢你的热心帮助，通过你的提供的程序给了我很大的帮助和启发，谢谢！

sakyu · 发表于 2010-6-24 11:27

原帖由 sylun 于 2010-6-23 15:34 发表

对比一下每题排版格式开头的字符特征，可看出新附件有两点不同，一是选项字母用小写，二是当中使用了几个空格。
因此，可将2楼程序中涉及查找替换的几行代码作如下修改：
1.　将.Text = "^13[（(][ABCD]@[）)] ...

非常感谢sylun兄的指点，根据你的提示修改后还是没有运行成功，不过我把答案放到题后，用你给tang兄的提示，可以实现随机抽取了。非常感谢你的热心帮助，通过你的提供的程序给了我很大的帮助和启发，谢谢！

supergo2 · 发表于 2010-11-1 15:44

问个很简单的问题：这些代码放在哪里

wslmwps1 · 发表于 2011-1-10 13:25

好，留着看看学习

cdb999 · 发表于 2011-1-25 05:12

这个问题偶一直都困扰着，谢谢各位老师。有时间要试试。

xdm619 · 发表于 2011-1-26 09:36

学习了，我想，如果能够把代码看懂，并能正确运用，将会受益非浅！虽然我还是个VBA代码盲。以前曾学过basic，结构上还是看得懂的，慢慢学吧！谢谢楼主了！

xszz001 · 发表于 2011-6-14 12:30

非常不错，真的很好！可是我不知道怎么实现它。请教

学习者1 · 发表于 2011-10-11 13:16

备用，谢谢

hhzjxss · 发表于 2012-3-18 17:21

我下载看看，谢谢分享！

ququ_1223 · 发表于 2012-4-10 12:40

sylun 发表于 2008-11-26 21:49
试试如下程序：
Sub test()
'假设题号编号格式均与附件相同。注：题库中每题之间须有一空行相隔，且每题的 ...

为什么一定要插入一空行呢。有什么办法不要空行吗，我这题库几千题，我要手动插入空行，那太麻烦了。忘老师解决

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

[求助] 如何在word格式题库中随机抽取部分题目形成试卷

好