my $WordDoc1 = $MSWord->{Documents}->Open($doc1,0,1);

##</code><code>##

$WordDoc1->SelectAll()->Copy();