use strict;
use warnings;
use diagnostics;
use Win32::OLE;

my $xl = Win32::OLE->new('Excel.Application');
$xl->{Visible} = 1;
my $wb = $xl->Workbooks->Add;

my $word = Win32::OLE->new('Word.Application');
my $doc = $word->Documents->Open({FileName => "C:\\Perl\\eg\\842813\\Word.doc", ReadOnly => 1});

my $row=0;
my $col=1;
for (1..$doc->Paragraphs->Count) {
	$row++;
	$wb->Sheets(1)->Cells($row, $col)->{Value} = $doc->Paragraphs($_)->Range->Text;
}