本示例在活动文档第1个表格的第4列中插入数值和文本。

Dim i As Integer
For i = 1 To ActiveDocument.Tables(1).Columns(4).Cells.Count
    ActiveDocument.Tables(1).Columns(4).Cells(i).Range.Text = num & "Sample"
Next i