Re: Loop through Word Sections?

[hominid]

You can loop through the Sections object like this:

...

my $sections = $doc->Sections->Count();

for(1..$sections)
{
        $doc->Sections($_)->Headers(1)->Range->InsertAfter("New Header
+ Text");
}

..

Check the Word Object Model Reference for more information.

[Anonymous Monk]

Thank you! I'm close. However, I'm having trouble translating a word marco command into Perl to goto the next section: after I get the count of sections, I do: for ($i=1; $i<=$sections; $i++){ #In Word, it does this next comment line, which I'm not #translating correctly and which sometimes gives the #blue screen of death... #Selection.GoTo what:=wdGoToSection, #which:=wdGoToFirst, Count:=1, Name:="" $doc->ActiveWindow->Selection->Goto ("wdGotoSection", "wdGoToNext", 1, ); #do more stuff...how in the world does above line Xlate? }

[Anonymous Monk]

OK, let's try formatting again... Thank you! However, I'm having trouble translating a word macro command into Perl to goto thte next section: After I get the count of sections I do:

for ($i=1; $i<=$sections; $i++){ 
#In Word, it does this next comment line, which I'm not #translating c
+orrectly and which sometimes gives the 
#blue screen of death... 

#Selection.GoTo what:=wdGoToSection, which:=wdGoToFirst, 
#Count:=1, Name:="" 

$doc->ActiveWindow->Selection->Goto ("wdGotoSection", "wdGoToNext", 1,
+ ); 

#do more stuff...how in the world does above line Xlate? }

[Anonymous Monk]

PS, the 'more stuff' is:

$word_app->Selection->WholeStory;
$word_app->Selection->Fields->Update;

Above works on section 1 of the document only...