求word 选择题选项自动排版的VBA代码

xsc6836

想写一个word 选择题选项自动排版的VBA代码，能帮忙吗？
设计是这样的：原始的素材是选择题若干个，每个选择题题干单独一段，四个选项各一段。
想实现的效果是，自动判断ABCD四个选项的长度，如1四个选项加起来可以放一行，就用将四段合并为一段，四个选项之间加占位符；如2四个选项中最长的没有超过段落可容纳长度的一半但又放不到一行，就将四个选项合并成2行，同一行选项间加占位符。如果最长选项长度超过一半，就仍然保留四行。




原始格式：
1．我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干
A．我是选项
B．我是选项
C．我是选项
D．我是选项
2．我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干
A．我是选项我是选项我是选项我
B．我是选项我是选项我是选项我
C．我是选项我是选项我是选项我是选项
D．我是选项我是选项
3．我是选项我是选项我是选项
A．我是选项我是选项我是选项我是选项我是选项我是选项我是选项我是选项
B．我是选项我是选项我是选项我是选项我是选项我是选项
C．我是选项我是选项
D．我是选项我是选项我是选项

排版后格式：根据选项长短分三种：
1．我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干
A．我是选项 B．我是选项 C．我是选项 D．我是选项

2．我是题干我是题干我是题干我是题干我是题干我是题干我是题干我是题干
A．我是选项我是选项我是选项我 B．我是选项我是选项我是选项我
C．我是选项我是选项我是选项我是选项 D．我是选项我是选项

3．我是选项我是选项我是选项
A．我是选项我是选项我是选项我是选项我是选项我是选项我是选项我是选项
B．我是选项我是选项我是选项我是选项我是选项我是选项
C．我是选项我是选项
D．我是选项我是选项我是选项

xsc6836

排版前文档
1. Why do many schools in China use high-tech devices?
A. To help children wash hands.
B. To make students keep one meter.
C. To share students' temperatures with their parents.
D. To measure temperatures and check epidemic control work.
2. How tmany kinds of robots are mentioned in this article?
A. One.
B. Two.
C. Three.
D. Four.
3. The underlined word “that” refers to“
A. making a regular cap
B. wearing a regular cap
C. making a special cap
D. wearing a special cap

排版后文档
1. Why do many schools in China use high-tech devices?
A. To help children wash hands.
B. To make students keep one meter.
C. To share students' temperatures with their parents.
D. To measure temperatures and check epidemic control work.
2. How tmany kinds of robots are mentioned in this article?
A. One.         B. Two.         C. Three.         D. Four.
3. The underlined word “that” refers to“
A. making a regular cap        B. wearing a regular cap
C. making a special cap        D. wearing a special cap