Vba 在MS Word中，如何将拆分函数的文本插入表中的不同行

我需要一些代码方面的帮助。我在word中构建了一个用户表单，使用书签作为每个文本框中文本应该放在哪里的引用，我能够做到这一点。我现在面临的挑战是使用Split函数。我想从TextBox3中抓取每个单词并将它们放在一个表中，然后我想在excel数据库中搜索每个单词，并在其旁边的单元格中检索信息（以Vlookup的方式）。TextBox3中的每个单词都应位于不同的行中

代码如下：

    Private Sub CommandButton1_Click()
With ActiveDocument
.Bookmarks("bmCN").Range _
.InsertBefore TextBox1
.Bookmarks("bmOriJob").Range _
.InsertBefore TextBox2
.Bookmarks("bmOptJob").Range _
.InsertBefore TextBox3
.Bookmarks("bmJobD").Range _
.InsertBefore TextBox4
.Bookmarks("bmJobRes").Range _
.InsertBefore TextBox5
.Bookmarks("bmJobR").Range _
.InsertBefore TextBox6
.Bookmarks("bmBen").Range _
.InsertBefore TextBox7
.Bookmarks("bmTag").Range _
.InsertBefore TextBox8

End With
 UserForm1.Hide
    Selection.WholeStory
    Selection.Fields.Update
    Selection.Collapse Direction:=wdCollapseEnd
    End Sub

---

如果您有任何帮助，我们将不胜感激。

使用数组和循环尝试以下方法：
（参见下面代码中的一些注释）

---

尝试了它，由于某种原因，它只得到了第二个单词，我使用“Automotive Parking Specialist”对它进行了测试，并且只传递了单词Parking，还注意到代码没有指定表的标题，因此数组应该转到第一列第二行。一点主题功能

=property（）

是否起作用，这样我可以让每一行以大写字母开头，或者应该有类似

Selection.Range.Case=wdUpperCase

的内容，选择是每一行的第一个字母？你有机会看一下吗？你可以使用

StrConv（tmpArray（I-1），vbProperCase）

以获取

正确的文本。尝试根据需要调整代码，其中
单元格（行、列）
是指表中相应单元格的语法。
'let's create temporary array
Dim tmpArray As Variant
    tmpArray = Split(TextBox3, " ")


Dim i As Integer
For i = 1 To UBound(tmpArray)

    'we will load values to first column in first table in yur document
    ActiveDocument.Tables(1).Cell(i, 1).Range = tmpArray(i - 1)

    'here do your stuff with excel- load what you need
    'ActiveDocument.Tables(1).Cell(i, 2).Range = something from excel
Next i