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

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

为了给大型文档设置样式，我使用了 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。