使用VBA宏标识项目符号列表的样式类型

Sub IdentifyBulletListStyle()
    Dim doc As Document
    Dim para As Paragraph
    Dim styleType As String
    
    ' 获取当前活动文档
    Set doc = ActiveDocument
    
    ' 遍历文档中的每个段落
    For Each para In doc.Paragraphs
        If para.Range.ListFormat.ListType = wdListSimpleNumbering Then
            styleType = "编号列表"
        ElseIf para.Range.ListFormat.ListType = wdListBullet Then
            styleType = "标准项目符号"
        ElseIf para.Range.ListFormat.ListType = wdListOutlineNumbering Then
            styleType = "大纲编号列表"
        Else
            styleType = "未知样式"
        End If
        
        ' 输出样式类型
        Debug.Print "段落 " & para.Range.Start & " 的样式类型: " & styleType
    Next para
End Sub