谁能给段高效代码？

sqhsqhli

目标：1、在文档内实现，不新建文档。2、根据每段落前两个字，对所有段落重新排序。最后变成如：



啊啊123
啊啊8888
啊啊777777777
少数000
少数6666666
。。。

gwjkkkkk

不知道是不是这个意思
Option Explicit
Sub test()
    Dim Par As Paragraph, dic As Object, strKey$, strRngText$
    Set dic = CreateObject("Scripting.Dictionary")
    With ActiveDocument
        .Content.Find.Execute FindText:="^l", ReplaceWith:="^p", Replace:=wdReplaceAll
        For Each Par In .Paragraphs
            If Len(Par.Range.Text) > 2 Then
                strKey = Left(Par.Range.Text, 2)
                strRngText = Left(Par.Range.Text, Len(Par.Range.Text) - 1)
                If Not dic.Exists(strKey) Then
                    dic(strKey) = strRngText
                Else
                    dic(strKey) = dic(strKey) & Chr(13) & strRngText
                End If
            End If
        Next
        .Content.Text = Join(dic.items, Chr(13))
    End With
End Sub

zhanglei1371

文档所有内容转表格，然后提取前两个字形成新列排序，代码你自己肯定会写。