Over a hundred files need 1 word changed! heres what i got
#include <Word.au3>
HotKeySet('{esc}', 'esc')
Func esc()
Exit 0
EndFunc ;==>esc
While 1
_Move()
WEnd
Func _Move()
Dim $MyExt[1] = ["doc"]
For $i In $MyExt
$search = FileFindFirstFile("*." & $i)
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
TrayTip("Found File:", "Replace file " & $file, 10)
$true = @ScriptDir & '\' & $file
$oWordApp = _WordCreate($true, 0, 0)
$oDoc = _WordDocGetCollection($oWordApp, 0)
$oFind = _WordDocFindReplace($oDoc, "Orange", "Banana", 2, 0)
_WordQuit($oWordApp, -1)
WEnd
FileClose($search)
Next
MsgBox(0, '', 'Done')
EndFunc ;==>_Move
Error: --> Word.au3 Warning from function _WordDocFindReplace, $_WordStatus_NoMatch