分享

VBA实现试卷自动排版

 L罗乐 2016-09-10

        利用Word对试卷等内容进行排版,耗费时间长,操作简单而又枯燥。Sir刚工作的时候,比较愚钝,纯手工排版而没有想到利用VBA进行自动排版,不过也正因为如此,千锤百炼让Sir熟悉了试卷的排版,为编写VBA代码奠定了基础。




        看回三年前自己编写的代码,Sir就有种感受:一是Sir工作的前三年到底花了多少时间在做低效率的事情,二是Sir当年怎么那么有魄力去编写和调试排版步骤的。当时能想到利用Word VBA进行排版,还是因为Sir自觉有患鼠标手和肩周炎的倾向。举个例子,比如以下这份未排版的试卷,在显示符号的状态下,可以看出原来出卷这位同志排版手段也不比Sir高明,手动输入了N多个空格(就是选项之间的“点”符号)和制表符Tab(就是选项前的“右箭头”符号)。每一个符号都需要敲击一次键盘,这样排版不得肩周炎才怪!

           机缘巧合之下,Sir又翻出三年前做的排版插件,进行了UpDate,再看到那一行行代码,就不由自主地联想到当时花了多少时间测试细节,再想到现在花时间去修改,真是痛苦万分 !欣慰的是——以后的排版工作就轻松多了。

            一、操作步骤:

            1、选中将进行排版的选择题

            2、单击文科试卷助手——选择题自动排版


            3、执行前提示


        4、执行结束提示(7道选择题花了6.6秒,每道题1秒钟,跟之前的程序执行时间比起来长了很多,是因为涉及到多次对象操作)




        二、废话连篇   

        1、展示一下Sir痛苦万分的根源

        2、“程序猿”这个称号Sir还是愧不敢当,编写代码还属于菜鸟水平。很多程序猿放弃VBA的原因是VBA代码难以保护,花了大量时间、心思、精力编写和测试的代码,几秒就被破解,还谈何知识产权。因此为了保护自己写的代码,Sir学会了使用VB6.0制作Office外接程序(dll文件);


学会了用innoSetUp封装外接程序(dll文件封装为exe文件);


学会了编写自己的加密解密模块(因为破解过office***系列插件产品);



学会了给插件安排试用期需要注册才能长期使用。

        3、目前遗憾一是只能排选择题部分,二是图片版式需要手动调整。

        4、免费试用5天。http://pan.baidu.com/s/1nu9PDMD。运行前请务必看清楚提示内容。





    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多