for JOY/ fast pidor help

#include <File.au3>
#include <Array.au3>
#include <Word.au3>
#include <_RecFileListToArray.au3>


$g_replaceList = IniReadSection('config.ini','words')
;~  _ArrayDisplay($g_replaceList)

$aArray = _RecFileListToArray(@ScriptDir, "*.doc*", 1, 1, 0, 2, "", "")
;~  _ArrayDisplay($aArray)


For $i = 1 to UBound($aArray) -1
   ReplaceInWord($aArray[$i])
Next


Func ReplaceInWord($pathToFile)

   ConsoleWrite($pathToFile & @CRLF)

   $oAppl = _Word_Create()
   If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocOpen Example", _
        "Error creating a new Word application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)

   $oWordDoc = _Word_DocOpen($oAppl, $pathToFile)
   If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocFindReplace Example", _
        "Error opening " & $pathToFile  & @CRLF & "@error = " & @error & ", @extended = " & @extended)

   ConsoleWrite($oWordDoc & @CRLF)

   for $k=1 to UBound($g_replaceList) -1
      $oFind = _Word_DocFindReplace($oWordDoc, $g_replaceList[$k][0], $g_replaceList[$k][1], $WdReplaceAll, 0, False, True)
      If $oFind Then
          ConsoleWrite("Found and replaced." & @CRLF)
      Else
          ConsoleWrite("Not Found" & @CRLF)
      EndIf

   Next
   _Word_DocSave($oWordDoc)
   _Word_DocClose($oWordDoc)
   _Word_Quit ($oAppl, 0)

EndFunc