Range.Cells (Word)

Devuelve una colección Cells que representa las celdas de tabla en un rango.

Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección.

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