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