my $range = $word->ActiveDocument->Content;
$range->Find->Execute( 
  {
   FindText    => 'google.com',
   ReplaceWith => '<web>google.com</web>',
   Replace     => $const->{'wdReplaceAll'},
  }
);