Range.Cells (Word)

Returns a Cells collection that represents the table cells in a range.

For information about returning a single member of a collection, see Returning an object from a collection.

Set newDoc = Documents.Add 
Set myTable = newDoc.Tables.Add(Selection.Range, 3, 3) 
i = 1 
For Each c In myTable.Range.Cells 
 c.Range.InsertAfter "Cell " & i 
 i = i + 1 
Next c