计算活动单词文档VBA中的项目符号数

Question

我正在使用此代码计算word文档中的项目符号数。但它总是归零。

Sub FindBullet()

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

            count = count + 1

        End If
    Next
End With

'Gives the count of bullets in a document
MsgBox count

End Sub

Answer 1

好吧，我刚刚打开一个空白的Word文档，弹出代码并运行它，然后它返回了我输入的很多子弹。我没有修改你的代码......

你的子弹真的可能是其他东西，比如编号列表或其他符号吗？