如何实现每一级标题自动编号？

foolman321

文章中有四级标题，如何按要求实现自动编号？(当删除了第3级中的2,3,4自动更改为2,3)其他的级别同样如此.
各级样式如下：
一、      （1级）
（一）（2级）
1.         (3级）
2.        (3级）
3.        (3级）
4.        (3级）
（1）   （4级）
(2)（4级）
(3)（4级）
二、      （1级）
（一）（2级）
1.         (3级）
2.        (3级）
3.        (3级）
4.        (3级）

（1）   （4级）
(2)（4级）
(3)（4级）

duquancai

Sub 手动编号转_自动编号()
    ActiveDocument.Content.ListFormat.ConvertNumbersToText
    sr$ = "〇一二三四五六七八九十百千万亿"
    r1$ = "[" & sr & "]@、": r2$ = "[(（][" & sr & "]@[)）]"
    r3$ = "[0-9]@[.．]": r4$ = "[(（][0-9]@[)）]"
    a = Array(r1, r2, r3, r4)
    Call ListTitle(ActiveDocument)
    For j = 0 To UBound(a)
        With ActiveDocument.Content.Find
            Do While .Execute(a(j), , , 1)
                With .Parent
                    If Not .Information(wdWithInTable) Then
                        x = Len(.Text): ksr = .Text
                        .Expand 4: .Collapse
                        If .MoveWhile(ksr, x) = x Then
                            .MoveStart , -x: .Text = Empty
                            .Style = ActiveDocument.Styles("标题 " & j + 1)
                        Else
                            .Move 4, 1
                        End If
                    End If
                End With
            Loop
        End With
    Next
End Sub
Sub ListTitle(doc As Document)
    Dim LtTemp As ListTemplate, i As Integer
    Set LtTemp = doc.ListTemplates.Add(True)
    For i = 1 To 4
        With LtTemp.ListLevels(i)
            If i = 1 Then .NumberFormat = "%1、": .NumberStyle = 37
            If i = 2 Then .NumberFormat = "（%2）": .NumberStyle = 37
            If i = 3 Then .NumberFormat = "%3.": .NumberStyle = 0
            If i = 4 Then .NumberFormat = "（%4）": .NumberStyle = 0
            .TrailingCharacter = 2: .StartAt = 1: .ResetOnHigher = True
            .NumberPosition = InchesToPoints(0.1 * i)
            .TextPosition = InchesToPoints(0 * i)
            .LinkedStyle = "标题 " & i
        End With
    Next
End Sub

foolman321

duquancai 发表于 2017-6-13 17:40
Sub 手动编号转_自动编号()
    ActiveDocument.Content.ListFormat.ConvertNumbersToText
    sr$ = "〇 ...

感谢分享。在WORD中试用，未通过。
我已经找到办法了，会者不难，难者不会，真的。在“段落”中选择“编号”，指定一种格式，用格式刷一下，一切OK，

duquancai

foolman321 发表于 2017-6-15 09:47
感谢分享。在WORD中试用，未通过。
我已经找到办法了，会者不难，难者不会，真的。在“段落”中选择“编 ...

那你就用格式刷好了！不管黑猫白猫，逮住耗子就是好猫！！！

褪墨

如果文档长的话，格式刷 就像  开车拖拉机 去美国。。。。

413191246se

杜先生 代码未通过，可能是楼主未声明变量。另外，标题1样式不是1级吗？大标题是标题1，形如“一、XX”这样的是标题2……

413191246se

《标题》1级
大标题=《标题1》1级《副标题》2级

一、XX=《标题2》，2级
（一）XX=《标题3》，3级
1、XX=《标题4》，4级
（1）XX=《标题5》，5级
正文

duquancai

413191246se 发表于 2017-6-17 12:21
杜先生 代码未通过，可能是楼主未声明变量。另外，标题1样式不是1级吗？大标题是标题1，形如“一、XX”这样 ...

我只是满足楼主之需求，至于楼主的这个需求是否符合公文的标准要求，这并不是本帖的讨论范围。

413191246se

杜先生，我觉得用 Word，就要遵循 Word 的内置标题样式。有些朋友，把正文中的形如“一、XX”这样的段落设置为 大纲 1 级，明明是 标题2样式，大纲 2 级嘛！实在不理解这些朋友！到底是他们正确，还是我正确呢？

wan12327

duquancai 发表于 2017-6-13 17:40
Sub 手动编号转_自动编号()
    ActiveDocument.Content.ListFormat.ConvertNumbersToText
    sr$ = "〇 ...

杜总，请问运行代码进入死循环了该如何解决