Select Code to Download

use warnings;
use strict;
...
use Win32::OLE::Variant;

$word->{Displayalerts} = 0;

Global symbol "$word" requires explicit package name at strict.pl line
+ 8.
Execution of strict.pl aborted due to compilation errors.

use warnings;
use strict;
...
my $excelfile = "E:\\assin\\foo\\sample.xlsx";
my $root = "E:\\assin\\foo";         
my $doc = "E:\\assin\\foo\\Functional.doc";

                # get the first table
                my $table = $Word->ActiveDocument->Tables(1);
...
                my $text = $table->Cell($row,$col)->Range->{Text};
$Sheet->Cells($row,$col)->{'Formula'}=$text;     
}

for( $row = 1; $row < 3; $row++ ){
    
...
    }

}