set T = activeDocument.Tables.Item(1) print T.Cell(2,2).Range.Text #### print $table->Cell(2,2)->Range->Text