通过vba实现对word当中的表格动态的插入行，同时对表中进行数据的填充。

最近在写vba代码，对word当中的表格进行操作，当时系统传过来的字符串的进行分割之后生成的条数是不确定的。所以要通过代码控制对行的插入

同时将分割之后的字符串进行相应的填充在表格当中。具体的代码如下：

Public Function insertrows(app As Object, record As String)

'动态的获取到名称，然后一条记录一行，然后分割记录，然后循环填充
'传进来的数据以分号分割。然后解析条数。

'定义一个String类型的数组
   Dim a() As String
   Dim b() As String
   Dim k As Integer
   
   a = Split(record, ";")'这里对传进来的record记录按照分号进行分割。来确定插入的行数。
   k = UBound(a)'统计出插入的行数
  
   
   For i = 0 To k
   
     app.ActiveDocument.Tables(5).Rows.Add '然后按照统计的行数进行对第5个表格当中进行行的插入

      b = Split(a(i), ",") '然后对确定好的行的字符串再进行分割，确定要填充的值。
      
    For j = 0 To 4
    
    app.ActiveDocument.Tables(5).Cell(i + 3, j + 1).Range.TEXT = b(j) '这里由于表格的特殊所有对行和列进行操作，然后进行赋值操作
    
     Next
    
   Next
     
End Function

至此问题得到解决。行自动添加，字段自动填充实现。