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

使用Word VBA确定项目符号列表样式,vba,list,ms-word,bullet,Vba,List,Ms Word,Bullet,我目前正试图解析一个充满项目符号列表的Word文档。我能够迭代并计算文档中的所有项目符号(见下文),但我似乎找不到任何方法来确定每个项目符号使用的项目符号样式。所有这些项目符号都存在于同一级别,因此列表级别没有帮助。我需要能够确定“此项目符号是箭头图标还是黑点图标?”但是,由于样式是烘焙到Word中的默认样式,因此我可以看到为该列表设置样式的方法,但我找不到获取当前样式值的方法 提前感谢您的帮助 Dim oPara As Word.Paragraph Dim count As Integer

我目前正试图解析一个充满项目符号列表的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

AscW(oPara.Range.ListFormat.ListString)
为不同的项目符号返回不同的数字。太棒了!这很有效,谢谢你<代码>AscW(oPara.Range.ListFormat.ListString)为不同的项目符号返回不同的数字。太棒了!这很有效,谢谢你!