给文档段落排顺序

dongdonggege

各位老师，大家好！

有一个文档，每个段落前，都有一个数字，表示有多少个段落，或者有多少个题目。
我现在的文档，前面有若干个段落，段落前面数字是正确的，比如是1-20。文档后面的若干段落和前面数字不是连续的，总的说都不是按照顺序来的。
就是前面一部分是按照1-15编的。中间可能又是1-20，后面又是1-30，标志是数字的后面有顿号。现在我想整篇段落，都按照段落数字的顺序加顿号排列，最后变成15+20+30=85？按照实际数字情况，顺序变成1-85。

麻烦大家了，谢谢。

hlxue

Sub 宏1()
Dim p As Paragraph, i As Integer, s As String
i = 1
j = 1
For j = 1 To ActiveDocument.Paragraphs.Count - 1
Set p = ActiveDocument.Paragraphs(j)
s = Left(p.Range, InStr(p.Range, "、") - 1)
If Val(s) >= 1 Then
p.Range = i & " 、" & Split(p.Range, "、")(1)
i = i + 1
End If
Next
End Sub

蜀中草莽

1、 在第一题前面插入空段落       插入 seq 域  剪切 seq域  不带段落标记
2.打开查找替换     查找 ^13[0-9]{1,}、  替换为   ^p^c、（勾选通配符）
3. 全选更新域    删除第一题前面的空段

dongdonggege

蜀中草莽 发表于 2024-1-4 17:59
1、 在第一题前面插入空段落       插入 seq 域  剪切 seq域  不带段落标记
2.打开查找替换     查找 ^13[ ...

还是比较麻烦，没有程序快速。
第2步，只说，查找替换。没说要不要全部替换。
第3步，全选后，没有更新域，找不到在哪。

gwjkkkkk

请参考。，。。

batmanbbs

dongdonggege

gwjkkkkk 发表于 2024-1-4 20:41
请参考。，。。

老师，你好，运行后变成数字有3个一样的了。

dongdonggege

gwjkkkkk 发表于 2024-1-4 20:41
请参考。，。。

1,、1、1，2、2、2，……

小花鹿

Sub test()
    Dim n&
    ActiveDocument.Range(0, 0) = Chr(13)
    With ActiveDocument.Range.Find
        .Text = "(^13)([0-9]{1,})(、)"
        .MatchWildcards = True
        Do While .Execute
            n = n + 1
            With .Parent
                .Text = Chr(13) & n & "、"
                .Start = .End
            End With
        Loop
    End With
    ActiveDocument.Range(0, 1) = ""
End Sub

dongdonggege

小花鹿 发表于 2024-2-17 11:17
Sub test()
    Dim n&
    ActiveDocument.Range(0, 0) = Chr(13)

感谢老师的帮助。