Word 2010 VBA - 操作编号列表

我正在尝试获取在 Outlook 中创建的编号列表，并根据顶级列表项对其进行操作。不幸的是，我发现操作列表的唯一方法是通过 ListParagraph 类型，它平等地分解所有列表项（包括子项），而不是对列表中的每个级别具有不同的访问权限。

有没有一种方法可以在一个对象中访问列表项及其所有子项？

Thanks.

这是我目前正在使用的，它适用于只有一层项目的列表：

    While i <= oMeetingWordDoc.Lists(1).ListParagraphs.Count
      Set oRange = oMeetingWordDoc.Lists(1).ListParagraphs(i).Range
      *Perform actions with oRange
      i = i + 1
    wend

对于“一级”列表，我的意思是这样的：

1. Item 1
2. Item 2
3. Item 3

带有“子项目”的列表我的意思是这样的：

1. 清单项目 1

   a) 项目 a
   b) 项目 b
   c) 项目 c
   

2. Item 2

   a) 项目 a
   b) 项目 b
   

3. Item 3

   a) 项目 a
   

我发现 ListFormat.ListLevelNumber 不可靠。

我有一份有人发给我的文档，其中包含一个项目符号列表，其中一个项目下有一个嵌套（2 级）列表。嵌套列表包含 3 个子项。只有子项 2 报告其为 ListLevelNumber 2。其他子项继续报告 ListLevelNumber = 1。

附带说明一下，报告错误列表级别的子项已将 ListFormat.ListString 设置为列表级别 2 中使用的字符，因此您可以通过检查两者来解决该问题。