http://qs1969.pair.com?node_id=437791

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

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

Replies are listed 'Best First'.
Re: Win32::OLE formattings
by maa (Pilgrim) on Mar 09, 2005 at 07:56 UTC

    Hi, Anonymous Monk

    this is just a hint, but it would help you receive answers if you explicitly stated that this is MS Word you're talking about, rather than hoping someone recognises the code or spots that wdFindContinue is a Microsoft Word constant.

    As a start, can you show us the code you use to assign $rng, please?

    --
    Mark

[reply]
[d/l]
[select]
      use strict;
use Win32::OLE;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Word';
use Constant 'True' => 1;
use Constant 'False' => 0;
$Win32::OLE::Warn = 2; # Throw Errors, I'll catch them

my $word = Win32::OLE->GetActiveObject('Word.Application') || 
        Win32::OLE->new('Word.Application', 'Quit');

my $mydoc = $word->activedocument; 
my $rng = $mydoc->{range};

      [download]
[reply]
[d/l]

        Your original code...

        Read more... (1056 Bytes)

        I've tried your code in Word (as a user) and it works. For anyone reading this, ^& is whatever Find just found/matched against.

        Recording a macro suggests the code: 

        use strict;
use Win32::OLE;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Word';
use Constant 'True' => 1;
use Constant 'False' => 0;
$Win32::OLE::Warn = 2; # Throw Errors, I'll catch them

my $word = Win32::OLE->GetActiveObject('Word.Application') || 
        Win32::OLE->new('Word.Application', 'Quit');

my $mydoc = $word->activedocument; 
my $Selection = $word->{Selection};

$Selection->Find->ClearFormatting();
$Selection->Find->Font->{Bold} = True;
$Selection->Find->Replacement->ClearFormatting();
with ($Selection->Find->Replacement->Font,
    Bold => True,
    Italic => False );

$Selection->Find->{Text} = "[0-9]{1,}";
$Selection->Find->Replacement->{Text} = "<bold>^&</bold>";
$Selection->Find->{Forward} = True;
$Selection->Find->{Wrap} = wdFindContinue;
$Selection->Find->{Format} = True;
$Selection->Find->{MatchCase} = False;
$Selection->Find->{MatchWholeWord} = False;
$Selection->Find->{MatchWildcards} = True;
$Selection->Find->{MatchSoundsLike} = False;
$Selection->Find->{MatchAllWordForms} = False;

$Selection->Find->Execute( {Replace=>wdReplaceAll} );

        [download]
        I've not tested it but hopefully it'll help...
[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom