如何用vba判断word中某段用的是哪一个项目符号？例如：■

[Candbasic]

如何用vba判断word中某段用的是哪一个项目符号？例如：■

[Candbasic]

顶起。。。。

[carl974]

没想到什么好方法,只能这样了，不过代价是把list的给去掉了

Sub xxx()
    Dim listRange As range
    Set listRange = ActiveDocument.Lists(1).ListParagraphs(1).range
    ActiveDocument.Lists(1).ConvertNumbersToText
    MsgBox "编号字符：" & listRange.Characters(1) & vbCr & "字体:" & listRange.Characters(1).Font.Name
End Sub

[Candbasic]

代码怎么写？能解决的加分