vba - 我们可以调整这个宏以在 Word 中查找编号和较低级别的列表吗？

Question

为了设计大型文档的样式，我使用了这个由https://wordribbon.tips.net/慷慨提供的宏来查找 Word 中项目符号列表的所有实例，这样我就可以应用特定的风格给他们：

Sub FindBullet()
    Dim rngTarget As Word.Range
    Dim oPara As Word.Paragraph

    Set rngTarget = Selection.Range
    With rngTarget
        Call .Collapse(wdCollapseEnd)
        .End = ActiveDocument.Range.End

        For Each oPara In .Paragraphs
            If oPara.Range.ListFormat.ListType = _
               WdListType.wdListBullet Then
                oPara.Range.Select
                Exit For
            End If
        Next
    End With
End Sub

我想将此提升到一个新的水平，以查找不同格式（例如 1-、1.、a. 等）和缩进级别的编号列表的所有实例（我相信这已经是它的工作方式了吗？）。不幸的是，我没有VB方面的专业知识，这可行吗？FWIW，我正在使用 Microsoft 365。

标签： vbams-wordfindall