vba - Word 2010 VBA - 操作编号列表

Question

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

有没有办法在一个对象中访问列表项及其所有子项？

谢谢。

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

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

通过带有“一个级别”的列表，我的意思是这样的:

第 1 项

项目 2

第 3 项

通过带有“子项目”的列表，我的意思是这样的:

列出项目 1

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

第 2 项

a) 项目 a
b) 项目 b

第 3 项

a) 项目 a

Answer 1

我发现 ListFormat.ListLevelNumber 不可靠。

我有一份文件，有人发给我一个项目符号列表，其中一个项目下有一个嵌套(2 级)列表。嵌套列表包含 3 个子项。只有子项 2 报告它是 ListLevelNumber 2。其他项继续报告 ListLevelNumber = 1。

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