VBA将选项对齐

batmanbbs · 发表于 2024-3-9 12:28

本帖最后由 batmanbbs 于 2024-3-9 12:36 编辑

小花鹿发表于 2024-3-9 10:56
我找到完美解决方案了，就是先把选项转换成表格，再把表格转换成文本，分割符为制表符，就可以做到选项对齐 ...

请教两个问题：一是使用表格应该是平分位置的方法吧，如果这样是否无法实现老师你提供文档的效果；二是表格是不是速度比较慢？应该需要多次进行转换表格，看看几列最合适

sylun · 发表于 2024-3-9 17:18

本帖最后由 sylun 于 2024-3-10 23:34 编辑

花了些时间换另一种方法处理，只针对选项区域，修改段落格式及选项前后空白字符，选项数与选项间隔可自由设定。仅用纯文本文档测试。代码见附件，有问题再讨论。

选择题选项整理2.zip (1.85 KB, 下载次数: 20)
另，16楼68行代码中数字4应为3。

小花鹿 · 发表于 2024-3-9 22:21

batmanbbs 发表于 2024-3-9 12:28
请教两个问题：一是使用表格应该是平分位置的方法吧，如果这样是否无法实现老师你提供文档的效果；二是表 ...

一是表格不是平均分配，是根据内容自动分配，二是要多次尝试，看几列合适，慢是肯定的，不过是可以接受的，一般的试卷不会超过30秒。

batmanbbs · 发表于 2024-3-9 22:30

小花鹿发表于 2024-3-9 22:21
一是表格不是平均分配，是根据内容自动分配，二是要多次尝试，看几列合适，慢是肯定的，不过是可以接受的 ...

那速度还可以接受，我原来也编写了一个用表格定位的代码，120多页用时近20分钟，后来就放弃了

小花鹿 · 发表于 2024-3-9 22:34

sylun 发表于 2024-3-9 17:18
花了些时间换另一种方法处理，只针对选项区域，修改段落格式及选项前后空白字符，选项数与选项间隔可自由设 ...

结果不理想，你再测试一下：

将选项对齐.rar (40.39 KB, 下载次数: 15)

小花鹿 · 发表于 2024-3-9 23:14

batmanbbs 发表于 2024-3-9 22:30
那速度还可以接受，我原来也编写了一个用表格定位的代码，120多页用时近20分钟，后来就放弃了

我的速度和你的差不多，164页A4纸1000道选择题，用时1624秒，一般的试卷没这么多吧
其实，速度不重要，关键是结果正确

小花鹿 · 发表于 2024-3-9 23:23

sylun · 发表于 2024-3-10 15:08

小花鹿发表于 2024-3-9 22:34
结果不理想，你再测试一下：

根据楼主的附件分析，不理想的原因主要为：一是原代码确实没有考虑选项以字母加顿号的格式特征，这点在前面的查找代码中添加上即可。二是选项前没有分隔字符，程序没有将句号作为分隔字符。选项间没有常规的分隔字符会导致不可知的判断差错，比如在英语试题的选项中。三是原代码对选项长度可能会添加了半个字符的长度值以避免重新分段时选项段落自动换行，有可能处理不十分准确。
如果认为处理后的文档中添加有制表符的段落不理想，可能是我对“平分”的理解把握不到位吧，之前是按版心宽度平分，现在是指选项间的宽度在统一。最好能提出明确要求。
其实复杂的还是公式、图片等不规则的对象处理问题。原代码是先合并选项段落再分析判断的，如出现自动换行时可能会错判。

batmanbbs · 发表于 2024-3-10 17:59

sylun 发表于 2024-3-10 15:08
根据楼主的附件分析，不理想的原因主要为：一是原代码确实没有考虑选项以字母加顿号的格式特征，这点在前 ...

主要是平分定位会使试卷看起来更加舒服、干净，我最终写的还是平分的代码，而且速度比表格方法快很多

小花鹿 · 发表于 2024-3-10 22:44

batmanbbs 发表于 2024-3-10 17:59
主要是平分定位会使试卷看起来更加舒服、干净，我最终写的还是平分的代码，而且速度比表格方法快很多

如果平分定位，那问题就变的很简单了，只要在固定的位置添加制表符就行了

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

[求助] VBA将选项对齐