my $select1=$WordDoc1->SelectAll() 
            or die "Could not do SelectAll() on doc1\n";
$select1->Copy();

##</code><code>##

my $select1=$WordDoc1->WholeStory() 
            or die "Could not do WholeStory() on doc1\n";
$select1->Copy();