word批量交换段落位置

文人慕

本人在录入考试题目的时候，发现所有题目的选项的排列顺序变成了【A】【B】【D】【C】，能否批量排版成【A】【B】【C】【D】，原计划用Excel来批量处理，发现好多的图片，处理起来有难度，求助各位大咖，说一下操作步骤，谢谢。

tcdatongye

1. Sub 交换()
   
2. Selection.StartOf unit:=wdStory
   
3. With Selection.Find
   
4.   .MatchWildcards = True
   
5.   .Forward = True
   
6.   .Wrap = wdFindStop
   
7.   .Text = "[CD]】"
   
8.   Do While .Execute
   
9.     s = .Parent
   
10.     With .Replacement
    
11.        If s Like "C?" Then
    
12.           .Text = "D】"
    
13.           Else
    
14.           .Text = "C】"
    
15.         End If
    
16.     End With
    
17.     .Execute Format:=False, Replace:=wdReplaceOne
    
18.     .Parent.Collapse direction:=wdCollapseEnd
    
19.   Loop
    
20. End With
    
21. End Sub
    

复制代码

ming0018

word段落有排序功能

文人慕

tcdatongye 发表于 2019-10-21 19:54

请教一下，若是把【A】【B】【C】【D】改为【题源】【题干】【解析】【答案】，需要把【答案】挪到【解析】前面，该怎么修改呢？【解析】里面的内容不止一个段落，每道题的解析长短还不一致。请问怎么样修改比较合适？谢谢。

文人慕

tcdatongye 发表于 2019-10-21 19:54

你好，这个有点问题，仅仅是交换了前面的选项序号，我想的是把序号和选项内容同时交换，也可以理解为两个段落交换，请问还有什么好的办法吗？

kingtau

发附件，发附件，发附件，便于分析问题，也可直接解决问题。
不发附件或附件只有几行的情况遇到好多，即使有热心帮忙的写完代码你也用不了
代码都是针对具体文件、具体需求来写的
如果文件涉密，那就找商业公司

GONG2816

此问题盼高手解答