标题2345自动设置（宏）——极速！

'http://club.excelhome.net/thread-1454849-1-1.html

前几天，观看 守柔版主 的代码集，关于 Instr 函数的用法，觉得繁琐，我尝试再三，结合最近 ming0018 老师关于不用 Selection/Select 对象/方法，避免激活对象的提速编程要求，最终成功！欢迎批评指正（请注意：此宏怕空行！）。

 

Sub Title2345Style()
'避免激活对象！/提速成功！/完成时间=.046秒！(极速)/2018-12-31/定稿！
    Dim i As Paragraph, s$, n&
    s = "一二三四五六七八九十1234567890百零〇○"
    For Each i In ActiveDocument.Paragraphs
        With i.Range
            If Not .Information(12) Then
                n = 1
                If .Text Like "（*" Then n = 2
                Do While InStr(s, .Characters(n)) > 0
                    n = n + 1
                    If .Characters(n).Text = "、" Then .Style = wdStyleHeading2: Exit Do
                    If .Characters(n).Text = "）" And Not .Text Like "（#*" Then .Style = wdStyleHeading3: Exit Do
                    If .Characters(n).Text = "．" Then .Style = wdStyleHeading4: Exit Do
                    If .Characters(n).Text = "）" And .Text Like "（#*" Then .Style = wdStyleHeading5: Exit Do
                Loop
            End If
        End With
    Next
End Sub