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

Question

我需要一些代码的帮助。我使用Bookmarks构建了一个用户表单作为对每个TextBox中文本应该去的位置的引用，我能够实现这一点。我现在面临的挑战是使用分割功能。我想从TextBox3中获取每个单词并将它们放在一个表中，然后我想搜索excel数据库中的每个单词并在其旁边的单元格上检索信息（以Vlookup的方式）。 TextBox3中的每个单词都应该在不同的行中。

以下是代码：

pcl/io/ply_io.h

任何帮助都将不胜感激。

Answer 1

尝试使用数组和循环：
（参见下面代码中的一些评论）

'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