（VBS）列出多个选择条目

Question

我在Word中有一个文本，我使用Ctrl + Click从中选择一些单词，然后在段落之后我将这些选定单词列为一个数字列表。看起来像这样

我想知道是否可以使用VBS创建一个宏，这会在选定的单词之后加上一个数字并在之后列出它们。到目前为止，我只是设法做了这样的事情：

Sub MakeAList()

With Selection
   .Copy
   .MoveDown Unit:=wdParagraph, Count:=1
   .TypeParagraph
   .Paste
End With
End Sub

它复制选定的单词并使每个单词在主要单词后面成为一个段落。我仍然制作一个列表并在原始文本中的单词后面加上（*）。

为了清除任何混淆，语言是中文，单词不用空格分隔，但我会尝试使用“Split”。重要的是，当我选择几个单词时，假设对于2个字符的单词，程序显示我选择了8个单词（4 * 2），但 4行，即使这些单词在同一行。所以我想我会用行计数器进行实验，如果有的话。