Monks,

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});
[download]

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.

Thanks