本示例在新文档中创建一个表格,并填充表格编号的序列。

Dim newDoc As Document
Dim mytable As Table
Set newDoc = Documents.Add
Set mytable = newDoc.Tables.Add(Selection.Range, 4, 8)
For i = 1 To mytable.Range.Cells.Count
    mytable.Range.InsertAfter "Cell " & i
    mytable.Range.Cells(i).Range.InsertAfter "cell" & i
Next