如何给word的各个标题级别快速插入编号？

超级月亮

在写文章的时候都是标记标记的级别，如图，最后会写成一篇只有各级标题没有编号的文章，然后我想一次性给这些标题增加编号，比如，一级标题的编号分别是一、二、三，下面二级标题的编号分别是1、2、3，除了鼠标到每个标题哪里挨个点编号以外，整篇文章的编号能不能一次性添加？如何做？

huanglicheng

1、鼠标放在文本所在行------右键--------样式-------选择格式相似文本
2、再右键------编号------选择你要的编号样式

超级月亮

huanglicheng 发表于 2017-7-3 12:36
1、鼠标放在文本所在行------右键--------样式-------选择格式相似文本
2、再右键------编号------选择你 ...

如果想一次性添加多级列表呢？就是比如一共有5个标题级别，我想添加5级列表，可以一次性添加吗？我发现如果一次性全选添加多级列表的话就会不区分标题级别，从头到尾都加成同一个级别的编号

huanglicheng

超级月亮 发表于 2017-7-3 23:27
如果想一次性添加多级列表呢？就是比如一共有5个标题级别，我想添加5级列表，可以一次性添加吗？我发现如 ...

估计没有直接的方法，需要VBA实现

413191246se

楼主必须会用VBA宏，如果不会请百度。下面是 本坛大神 杜先生 前一段写的代码，能把各级标题设置为自动编号：

1. Sub 多级列表样式运用()
   
2.     Dim p As Range, doc As Document, s As Range, sr$, r1$, r2$, r3$, r4$, a, j&, x&, ksr$
   
3.     Set doc = ActiveDocument
   
4.     Set p = IIf(Selection.Type = wdSelectionIP, doc.Content, Selection.Range)
   
5.     sr$ = "一二三四五六七八九十百零千〇"
   
6.     r1$ = "[" & sr & "]@、": r2$ = "[(（][" & sr & "]@[)）]": r3$ = "[0-9]@[、.．]": r4$ = "[(（][0-9]@[)）]"
   
7.     a = Array(r1, r2, r3, r4)
   
8.     Call ListTitles(doc)
   
9.     For j = 0 To UBound(a)
   
10.         Set s = p.Duplicate
    
11.         With s.Find
    
12.             Do While .Execute(a(j), , , 1)
    
13.                 If Not s.InRange(p) Then Exit Do
    
14.                 With .Parent
    
15.                     If Not .Information(wdWithInTable) Then
    
16.                         x = Len(.Text): ksr = .Text
    
17.                         .Expand 4: .Collapse
    
18.                         If .MoveWhile(ksr, x) = x Then
    
19.                             .MoveStart , -x: .Text = Empty
    
20.                             .Style = ActiveDocument.Styles("标题 " & j + 2)
    
21.                         Else
    
22.                             .Move 4, 1
    
23.                         End If
    
24.                     End If
    
25.                 End With
    
26.             Loop
    
27.         End With
    
28.     Next
    
29.     p.ListFormat.ConvertNumbersToText
    
30. End Sub
    
31. Sub ListTitles(doc As Document)
    
32.     Dim LtTemp As ListTemplate, i%, a
    
33.     Set LtTemp = doc.ListTemplates.Add(True)
    
34.     On Error Resume Next
    
35.     a = Array(6, 5, 11, 12)
    
36.     For i = 2 To 5
    
37.         With LtTemp.ListLevels(i)
    
38.             If i = 2 Then .NumberFormat = "%2、": .NumberStyle = 37
    
39.             If i = 3 Then .NumberFormat = "（%3）": .NumberStyle = 37
    
40.             If i = 4 Then .NumberFormat = "%4.": .NumberStyle = 0
    
41.             If i = 5 Then .NumberFormat = "（%5）": .NumberStyle = 0
    
42.             .TrailingCharacter = 2: .StartAt = 1: .ResetOnHigher = True
    
43.             .LinkedStyle = "标题 " & i
    
44.             doc.Styles("标题 " & i).Font.ColorIndex = a(i - 2)
    
45.         End With
    
46.     Next
    
47. End Sub

复制代码

悠哉游哉

就用正常的编号办法啊
定义新的多级列表你既然已经设置好了级别，就在多级列表里设置需要的格式