find and replace text in header and footers of MS Office doc and excel

[jjap28]

I was able find/replace text in the body of the Doc file, thanks to internet, but I am not able to find/replace text in the header/footer.

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

my $Wordsections = $word->{Sections};

my $sections = $doc->{Sections};
my $n_sections = $sections->{Count};

for my $s ( 1 .. $n_sections ) {

   my $section = $sections->Item($s);

   my $headers = $section->{Headers};
   my $n_headers = $headers->{Count};

   for my $h ( 1 .. $n_headers ) {
      my $header = $headers->Item($h);
      print $header->{Range}->{Text}, "\n";
      #my $headerRange=$headers->Range("wdHeaderFooterIndex")->InRange
+="TRUE";
      $Wordsections->Find->ClearFormatting;
      $Wordsections->Find->{Text} = 'SECRET';
      $Wordsections->Find->Replacement->{Text} = "NOFORN";
      $Wordsections->Find->Execute({Replace => wdReplaceAll});
      
   }
   
   my $footers = $section->{Footers};
   my $n_footers = $footers->{Count};
   
   for my $f ( 1 .. $n_footers ) {
      my $footer = $footers->Item($f);
      print $footer->{Range}->{Text}, "\n";
     }
}

[pryrt]

Do any of these help?

• http://word.mvps.org/faqs/customization/ReplaceAnywhere.htm
• http://stackoverflow.com/questions/9186629/searching-for-text-in-header-section-of-a-word-document
• http://stackoverflow.com/questions/11673195/how-force-replace-macro-apply-on-header-also

They'd have to be translated to Perl/Win32::OLE, but the objects you'll need to access are in those answers...

[jjap28]

I'll give it a shot - thank you

[Anonymous Monk]

So these are all Visual basic solutions. I was hoping to see Perl code. I am not familiar with Visual Basic. - Thanks