Range.Cells (Word)

Retorna uma coleção Cells que representa as células da tabela em um intervalo. Somente leitura.

Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção.

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