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

'^第[一二三四五六]章、(.)*
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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

-1 操作环境

• windows10
• MS word 2010

0. 错误效果如题

• 下图是出现问题的效果，本来编号应该是2.1，但出现1.1
  

1. 原因

在设置多级列表时，（可能）自动生成的编号不正确，目前俺也不清楚什么原因，你也照着下面的介绍试试吧☺

2. 打开‘定义新的多级列表’

2.1 设置一级列表

• 只圈出了关键设置
  

2.2 二级列表设置（仔细看~）

• 先把①处清空
• 在②处选择 ‘来自级别1’， 随后在①处输入英文格式的点号
• 在③处选择样式‘1，2，3，…’
• 最终①处会出现正确的编号

成功了请点个赞，没成功请留言~~