my $originalDoc = $MSWord->Documents->Open('C:\Perl\testDocument.doc'); my $newDoc = $MSWord->Documents->Add; my $selection = $MSWord->Selection(); # this may be spurious my $count = int( $originalDoc->Tables()->{Count} ); my $range = $originalDoc->Tables()->Range( { Start => $originalDoc->Tables(1)->{Range}->{Start}, End => $originalDoc->Tables($count)->{Range}->{End} } ); $range->Copy(); $newDoc->Range()->Paste();