如何在msword(word对象模型)中读取多级列表编号?

我得到了一个解决方案,将范围划分为段落,然后使用listLevelnumber向后迭代,直到我到达少1个listLevelnumber的段落,代表更高级别列表中的最后一个列表。在这里,我访问了ListString。重复它,直到我达到顶级列表。 python中的代码是,

 text=Range.ListFormat.ListString+str(Range.text)
 level=Range.ListFormat.ListLevelNumber
 lstr=""
 if level > 1:
     p=Range.Paragraphs.First
 while level >1 :
     while p.Range.ListFormat.ListLevelNumber == level :
         p=p.Previous(1)
     lstr=p.Range.ListFormat.ListString+lstr
     level=level-1
 if lstr:
     text=lstr+text

lstr包含我想要添加的列表前缀,以获得表示完整嵌套形式的字符串。我得到的这个解决方案是基于所有列表项都是不同的段落这一事实。