Question

我在word文档中选择了部分的范围对象我想得到该范围内的文字。
我面临的问题是我想用数字/子弹阅读项目符号/编号列表例如，如果所选区域的内容是，

1.abc
2.bcd
3.efg

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

我使用了range.text。它只提供没有项目符号/数字的列表内容我甚至使用range.ListFormat.ListString和range.text 这里的问题是，如果选择的部分是

条款一 C
2.bcd
3.efg
然后我得到的是“1. c bcd efg”。这主要是因为range.ListFormat.ListString给出了第一个列表项的项目符号/编号。

但我想要的是像

这样的东西

c 2. bcd 3. efg

有没有办法/财产呢？最好使用单词对象模型本身。

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

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

1 个答案: