set T = activeDocument.Tables.Item(1)
print T.Cell(2,2).Range.Text