$Word->ActiveDocument->Range($Word->ActiveDocument->text)->Select;
my $Str = $Word->Selection->Text;
print( "Selection=$Str.\n" );