如何在MS Word中的表格内的不同行中插入Split函数的文本

Question

I need help with some code. I built a User Form in word using Bookmarks as references to where the text in each TextBox should go, I was able to accomplish that. The challenge I'm having now is using the Split Function. I want to grab each word from TextBox3 and place them in a table, then I want to search each word in an excel database and retrieve the info on the cell next to it (in a Vlookup sort of way). Each word from the TextBox3 should be in a different line.

Here is the code:

    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

Any help would be appreciated.

Answer 1

Try something like this with array and loop:
(see some comments inside the code below)

'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