我们可以调整这个宏以在 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。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

ms-word vba