great Idea!
Here's what I got:

Sub LN_Select_all()
'
' LN_Select_all Macro
' Macro recorded 1/24/03 by LameNerd
'
    Selection.WholeStory
    Selection.Copy
End Sub

This tells me that I should change my Perl code from:

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

to:

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

right?