选择题ABCD四个选项怎么用VBA整齐排版

丶冫氵灬

我是搞教研制作试卷工作的，常常遇到选择题中的ABCD四个选项，有的字数少可以排在同一行，有的字数多一些，可以排成二行，有的字数较多，只好ABCD各起一行。有哪位大神可以帮我用VBA自动把这三种情况一键搞定。就是把我发的附件中的第一页排成第二页的样子！

413191246se

楼主，请提供一个具体附件才好。

丶冫氵灬

413191246se 发表于 2022-7-5 08:06
楼主，请提供一个具体附件才好。

我提供的附件，不知为什么没有上传到网站。

常扬帆

这里有个附件，不知道是此种类型不？

丶冫氵灬

常扬帆 发表于 2022-7-8 11:06
这里有个附件，不知道是此种类型不？

是的。有解决的方案吗？

常扬帆

我没有，同样等高手高手高高手。

三羧酸

这个问题我也期待过

zpy2

常扬帆 发表于 2022-7-8 11:06
这里有个附件，不知道是此种类型不？

cli_add_css~～td{font-size:30px}td{}td,th {border:solid 1px white;text-align:left}td div{float:left;margin-right:0px;border:solid 1px white}td .ans{clear:both}～;select * from 试卷格式选项排版紧凑化 limit 3;create temp table aa as select regexp2('^(\d+)、',原格式,1) 序,(case  when regexp('^\d+、.*$',原格式) then 'A题目'  when regexp('^[A-Z]、.*',原格式) then 'B选项' else 'C答案' end) 类型,原格式,length(原格式)*30 长 from 试卷格式选项排版紧凑化;create temp table bb as select fillna(序) 序,类型,原格式,case when 长>500 then 1000  when 长>250 and 长<=500 then 498 when 长<=250 then 248 end 宽 from aa;create temp table cc as select '<div style="width:'||max(宽)||'px">'||replace(group_concat(原格式),',','</div><div style="width:'||max(宽)||'px">')||'</div>' 变成下面格式 from bb group by 序,类型;select * from cc;

文人慕

建议改用LaTeX排版

zldccmx

可以借用表格来规范布局