Microsoft Word Script: First Header Range Select

   ;Find/replace for new product name in the body of the document
   _Word_DocFindReplace($oDoc, "PROFILENAME", $aFileArray[$count])
   Sleep(500)
 
   ;Selects the header and finds/replaces there too
   $count_sections=$oDoc.Sections.Count()
   For $sec_i=1 To $count_sections
      ; select one header section
      $oDoc.Sections($sec_i).Headers(1).Range.Select()
      ; replace in header
      _Word_DocFindReplace($oDoc, "PROFILENAME", $aFileArray[$count], 2, -1)
 
      ; select one footer section
      $oDoc.Sections($sec_i).Footers(1).Range.Select()
      ; replace in footer
      _Word_DocFindReplace($oDoc, "PROFILENAME", $aFileArray[$count], 2, -1)
      Next
 
   ; restore print layout view
   $oDoc.Activewindow.View.Type = 6