【段落交换】乡长和村长打架了，还有亲属，请给他们排排序。

文人慕

请教各位大咖，如何将文件中的两个段落交换位置，有上千组这样的数据，我这里确实不知道如何调整比较好了，着急等解答。

jiangxiaoyun

这个其实复制到excel,再插入一个辅助列排序问题就解决了的.自定义排序,可以进一步去除中【】

文人慕

jiangxiaoyun 发表于 2019-11-27 11:20
这个其实复制到excel,再插入一个辅助列排序问题就解决了的.自定义排序,可以进一步去除中【】

在Excel中的操作我是会的，现在需要的是word中的操作

ming0018

有办法   下午有空 给你写一个

文人慕

ming0018 发表于 2019-11-27 12:37
有办法   下午有空 给你写一个

谢谢你   若是有空的话帮个忙

tcdatongye

查找：(【村长】*^13)(【乡长】*^13)替换：\2\1

文人慕

tcdatongye 发表于 2019-11-27 13:44
查找：(【村长】*^13)(【乡长】*^13)替换：\2\1

非常感谢你，可能是我上传的附件有点不足，倘若是【乡长】与【村长】下有多个段落怎么处理呢？

文人慕

辛苦各位了，我这边重新上传了一下文件，并非是两个段落进行交换，而是两个部分进行交换，每部分含有多个段落。

ming0018

要求：每组必须要有空行隔开。

1. Private Sub 段落排序()
   
2.     Dim doc As Document, Rng As Range
   
3.     Dim Par As Paragraph
   
4.     Dim Tmp As String
   
5.     Dim n As Long
   
6.     Application.ScreenUpdating = False
   
7.     Set doc = ActiveDocument
   
8.     For Each Par In doc.Paragraphs
   
9.         If Len(Par.Range.Text) > 4 Then
   
10.             Tmp = left(Par.Range.Text, 4)
    
11.             Select Case Tmp
    
12.                 Case "【省长】"
    
13.                     Par.Range.InsertBefore "^" & Format(n, "00000") & ".1$"
    
14.                 Case "【市长】"
    
15.                     Par.Range.InsertBefore "^" & Format(n, "00000") & ".2$"
    
16.                 Case "【县长】"
    
17.                     Par.Range.InsertBefore "^" & Format(n, "00000") & ".3$"
    
18.                 Case "【乡长】"
    
19.                     Par.Range.InsertBefore "^" & Format(n, "00000") & ".4$"
    
20.                 Case "【村长】"
    
21.                     Par.Range.InsertBefore "^" & Format(n, "00000") & ".5$"
    
22.                 Case "【自己】"
    
23.                     Par.Range.InsertBefore "^" & Format(n, "00000") & ".6$"
    
24.             End Select
    
25.         Else
    
26.             n = n + 1
    
27.             Par.Range.InsertBefore "^" & Format(n, "00000") & "$"
    
28.         End If
    
29.     Next
    
30.     doc.Content.Sort
    
31.     Application.ScreenUpdating = True
    
32. End Sub

复制代码

最后自己再把序号替换掉就行了

ming0018

文人慕 发表于 2019-11-27 14:14
辛苦各位了，我这边重新上传了一下文件，并非是两个段落进行交换，而是两个部分进行交换，每部分含有多个段 ...

请问 是不是只交换上图村长区域和乡长区域的 段落？