如何使用单词范围对象阅读项目符号/编号列表

Question

我得到了Word文档中选定部分的范围对象。
我想获取该范围内的文本。
我面临的问题是我想阅读带有编号/项目符号的项目符号/编号列表。
例如，如果所选区域的内容是，

1.ABC
2.BCD
3.电子福利

我想让字符串读取为 1.abc 2.bcd 3.efg。

我使用了range.text。 它只给出了没有项目符号/数字的列表内容。
我使用偶数范围。ListFormat.ListString with range.text.
这里的问题是，如果选择的部分是

1.abc
2.BCD
3.电子福利
然后我得到的字符串是"1。c bcd efg"，主要是因为范围。ListFormat.ListString 给出第一个列表项的项目符号/编号。

但我想要的是类似的东西

1. C 2. BCD 3. 盈丰银行

有什么方法/属性可以做到这一点吗？
最好使用单词对象模型本身。

Answer 1

您需要从这样的东西开始，但细节取决于您是否希望在其中使用段落终止字符，等等。

Dim p As Paragraph
Dim s As String
s = ""
For Each p In Selection.Range.Paragraphs
  s = s & p.Range.ListFormat.ListString & " " & p.Range.Text
Next
Debug.Print s
End Sub