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. 第 1 项
2. 第 2 项
3. 第 3 项

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

1. 列出项目 1

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

2. 第 2 项

   a) 项目 a
   b) 项目 b
   

3. 第 3 项

   a) 项目 a
   

Answer 1

我发现 ListFormat.ListLevelNumber 不可靠。

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

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

Answer 2

ListFormat.ListLevelNumber正是您要找的。 下面是一些将输出文档中每个ListParagraph的列表级别和文本的ListParagraph ：

Sub listLevels()
    Dim currentList As Range
    Dim i, numLists As Integer

    numLists = ActiveDocument.ListParagraphs.Count

    For i = 1 To numLists
        Set currentList = ActiveDocument.ListParagraphs(i).Range
        MsgBox currentList.ListFormat.ListLevelNumber & " " & currentList.Text
    Next
End Sub

您当然可以使用ListLevelNumber = 1的条件仅访问顶级列表， ListLevelNumber = 2用于第二级等。

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

我真的不认为有一个很好的方法可以做到这一点，除非您使用递归或其他方式自己构建它（创建一个带有一组子级的对象，并且每个子级都有自己的子级数组，等等）。 我没有这个代码，但希望我发布的代码能让你完成你想做的事情——而且它更简单。

此外， ListFormat还有一些其他成员，如果您经常使用列表，可能会很有用 - 在对象浏览器中挖掘以了解更多信息。