my $forward = ($backward?$f:$t);
  my $r0 = $doc->Range({Start=>$rs,End=>$re});
  my $find_r = $r0->Find;
  $find_r->ClearFormatting;
  $find_r->{Style} = $style;
  $find_r->Execute({FindText=>$text,MatchWildcards=>$f,Forward=>$forward,Wrap=>$wconst->{wdFindStop}});
  if ((!$find_r->Found) || $r0->{Start}>=$re || $r0->{End}<=$rs) {
    return @r;
  }