具体操作步骤如下：

• 准备工作

• 点击“段落”-“多级列表”

• 点击“定义新的多级列表”

• 点击“更多”

• 1级标题设置

注意：

1.输入编号的格式：第1章，其中1自动加载成灰色的背景，这样就可以自动编号，如果手工调整成其他，没有背景色，则不能自动编号，只能手动编写。另外点击“字体”按钮，可对字体样式进行调整。

2.此级别的编号样式：选择成“1,2,3…”，也可以选择其他的编号样式。

3.将级别链接到样式：选择“标题1”，也可以选择其他的样式。

• 2级标题设置

• 3级及以下标题

• 标题效果

• 去掉标题前的空格

注意：下图是1级标题

注意：下图是2级标题

对齐位置：0厘米；编号之后：空格

• 设置效果

==========================

'^第[一二三四五六]章、(.)*
Sub Word使用正则表达式批量设置标题样式()                                         
    '创建正则表达式对象
    Dim objRegExp As Object
    '创建word对象
    Dim docDocument As Document
    
    Dim i As Integer
    Dim k As String, nPt As String, sty As String
    
    
    nPt = InputBox("请输入需要匹配的正则表达式")
    Set objRegExp = CreateObject("vbscript.regexp")
        With objRegExp
             '正则表达式匹配文本类型
             .Pattern = nPt
             '设置仅匹配第一个或是匹配所有符合条件的内容
             .Global = True
             .MultiLine = False
             .IgnoreCase = False
        End With
    
    sty = InputBox("请输入样式名称")
    Set docDocument = ActiveDocument
    
    For i = 1 To docDocument.Paragraphs.Count
        k = docDocument.Paragraphs(i).Range.Text
        If objRegExp.test(k) Then
            docDocument.Paragraphs(i).Range.Select
            With Selection
            '如果匹配到符合条件的标题，则将其样式设置为sty(注：sty为Word中的样式名称，需在程序运行前预先定义好)
            .Style = ActiveDocument.Styles(sty)
            End With
        End If
    Next

End Sub

==========================

==========================

==========================

==========================

==========================

==========================

==========================

==========================

==========================

==========================

==========================

==========================

==========================

==========================

==========================