; *******************************************************
; Пример 1 - Create a word window, open a document, find "this", 
;				replace all occurrences with "THIS", quit without saving changes.
; *******************************************************

#include <Word.au3>
$oWordApp = _WordCreate (@ScriptDir & "\Test.doc")
$oDoc = _WordDocGetCollection($oWordApp, 0)
$oFind = _WordDocFindReplace($oDoc, "this", "THIS")
If $oFind Then
	MsgBox(4096, "FindReplace", "Found and replaced.")
Else
	MsgBox(4096, "FindReplace", "Not Found")
EndIf
_WordQuit ($oWordApp, 0)