Select Code to Download

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Word';
...
my $text = $Word->Selection->{Text};
print $text;
print Win32::OLE->LastError();