my $word  = CreateObject Win32::OLE 'Word.Application' or die $!;
$word->{Visible} = 1;

my $document = $word->Documents->Open('C:/temp/doctest.doc');

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

my $selection = $table->Select;

$selection->MoveUp(wdLine,1);

my $str = $selection->Range(0,10)->{Text};

$table->Range->Copy;

print qq{$str\n};