假定你的word，题目、答案、解析都有完整、明确的标志。比如：
【题目】1、xxxxxxxx
【题目】2、xxxxxxxx
【题目】3、xxxxxxxx
...........
【答案】1、xxxxxxxx
【解析】1、xxxxxxxx
【答案】2、xxxxxxxx
【解析】2、xxxxxxxx
【答案】3、xxxxxxxx
【解析】3、xxxxxxxx
............
那么，先逐段落读取整个文档，事先声明3个数组 array_qus ,array_ans, array_ana
当读取到段落以【题目】打头时，把这个段落内容存入 array_qus
当读取到段落以【答案】打头时，把这个段落内容存入 array_ans
当读取到段落以【解析】打头时，把这个段落内容存入 array_ana
.....
读取完毕，关闭原文档，新建一个文档，
然后循环数组，按 array_qus ,array_ans, array_ana 这个顺序，依次取出
array_qus(i) ,array_ans(i), array_ana(i)，放入新文档
i 从0开始循环，直到数组取尽。
保存新文档，完毕。
这是思路，代码就不写了，很简单的VBA代码。