Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:


Is there any way to find the formattings like bold italic, bold, superscript etc and replace with someother text using Win32::OLE.

Here is my coding,

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

Using the above code, all the numbers are replaced, what i want is, i want to find the numbers that are in bold alone and replace with some tag.