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