perl - MoveRight メソッドが機能しない

Question

スペースに遭遇しない限り、文字ごとに単語を選択したい。「パッケージまたはオブジェクト参照なしでメソッド "MoveRight" を呼び出すことはできません」というエラーが表示されます。私を助けてください。前もって感謝します。以下は私のコードです：

#!/usr/bin/perl 
use strict;
use warnings; 
use Win32::OLE qw(in); 
use Win32::OLE::Const 'Microsoft Word';

my $selection;

my $word = new Win32::OLE 'Word.Application','' or die "Cannot start
word!\n";

$word->{visible}=0;  

my $doc = $word->Documents->Open( 'C:\\PerlScripts\\myTest.docx' );

$selection = $word->Selection;

$selection->Find->{Text} = "hi";

$selection->Find->{Forward} = 'true';

$selection->Find->{MatchWildcards} = 'true';

$selection->Find->{MatchPrefix} = 'true';

if ( $selection->Find->Execute ) {
print "The search text was found\n";
while($selection->Next ne " ")
{
    $selection = $selection->MoveRight({Unit => wdCharacter, Count => 1, Extend => wdExtend}) ;
}   
print $selection->{Text};
} else {       
print "The search text was not found\n";
}