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

Question

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

1.abc
2.bcd
3.efg公司

我想把这个字符串读为1.abc2.bcd3.efg。在

我用过范围.text. 它只给出列表内容，没有项目符号/数字。
我甚至用过range.ListFormat.ListString与范围.text.
这里的问题是，如果选定的部件是

1.abc
2.bcd
3.efg
我得到的是“1”。主要是因为range.ListFormat.ListString给出第一个列表项的项目符号/编号。在

但我想要的是

1. C2。公元前3年。efg公司

有什么办法/财产来做吗？
最好使用word对象模型本身。在

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