使用Word VBA确定项目符号列表样式

Question

我目前正在尝试解析一个充满子弹列表的Word文档。我可以迭代并计算文档中的所有项目符号（见下文），但我似乎找不到任何方法来确定每个项目符号使用的子弹样式。所有这些项目符号都存在于同一级别，因此列表级别没有帮助。我需要能够确定“这个子弹是箭头图标还是黑点图标？”但是，由于样式是Word中的默认值，我可以看到为该列表设置样式的方法，但我找不到一种方法来获取当前样式的值。

提前感谢您的帮助！

Dim oPara As Word.Paragraph
Dim count As Integer


count = 0

'Select Entire document
Selection.WholeStory

With Selection
    For Each oPara In .Paragraphs
        If oPara.Range.ListFormat.ListType = WdListType.wdListBullet Then

                MsgBox "debug: " & oPara.Range.ListFormat.ListType & "//" & oPara.Range.Text

                count = count + 1


        End If
    Next
End With

'Gives the count of bullets in a document
MsgBox count