$rng->find->clearformatting;
$rng->find->font->{'Bold'}= "True";
$rng->find->replacement->clearformatting;
$rng->find->execute({findtext=>"[0-9]{1,}",  wrap=>wdFindContinue, replacewith=>"<bold>^&</bold>", matchwildcards=>'True', replace=>wdReplaceAll});