My $sections = $doc->Sections->Count();
$word_app->ActiveWindow->ActivePane->View->{Type} = wdPrintView;

For ($i=1; $i<=$sections; $i++){
   #Macro to translate:  Selection.GoTo What:=wdGoToSection, which:=wdGoToNext, Count:=1, Name:=””
   #Next line is an attempt to translate but it is NOT working, saying bad parameter…
   $word_app->ActiveWindow->Selection->GoTo(“wdGoToSection”, “wdGoToNext”, 1, 0);  
   $word_app->ActiveWindow->ActivePane->View->{SeekView} = wdSeekCurrentPageHeader;
   $word_app->Selection->WholeStory;
   $word_app->Selection->Field->Update;

}