Loop through the collection of objects with 'in'

#!perl
use strict; 
use Win32::OLE('in');
use Win32::OLE::Const "Microsoft Word";
Win32::OLE->Option(Warn => 3);

my $Word = Win32::OLE->new('Word.Application');
$Word->{Visible} = 1;
my $Doc = $Word->{Documents}->Open('c:/temp/HelloWorld.docx');

for my $Section (in $Doc->Sections){
  printf "Section %d\n",$Section->{Index};
  for my $Header (in $Section->Headers()){
    printf "Header %d - %s\n",$Header->{Index},
                              $Header->Range->{Text};
  }
  for my $Footer (in $Section->Footers()){
    printf "Footer %d - %s\n",$Footer->{Index},
                              $Footer->Range->{Text};
  } 
}

for my $Comment (in $Doc->Comments){
  printf "Comment %d - %s\n",$Comment->{Index},$Comment->Range->Text
}
undef $Doc;
undef $Word;
[download]

It gets complicated if your header/footers include text inside shapes !

I was facing a similar issue and your code sample was just the thing I needed. For my system (Windows 10 -- Office 2016) I had to make Win32::OLE::Const more generic, and I added "close" and "quit" to close the document and end MS Word. Thank you poj for the sample code.


use Win32::OLE::Const "Microsoft Office .* Object Library";

# Close document
$Doc->Close();
undef $Doc;

# Close MS Word
$Word->Quit();
undef $Word;
[download]

"It's not how hard you work, it's how much you get done."