my $table = $word->ActiveDocument->Tables(2);
$table->Select();

##</code><code>##

Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend

##</code><code>##

$word->selection->MoveDown({Unit => wdline,Count=>1,Extend=> wdExtend,});
$word->selection->MoveDown(wdLine,1);