Option Explicit

Dim Content, stringForSearch
Dim objWord, objFSO, objDoc, objSelection
Dim folderPath, fileName, filePath

folderPath = WScript.Arguments.Item(0)
fileName = WScript.Arguments.Item(1)
stringForSearch = WScript.Arguments.Item(2)

filePath = folderPath & "\" & fileName

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWord = CreateObject("Word.Application") 

objWord.DisplayAlerts = 0
Set objDoc = objWord.Documents.Open(filePath)
Set objSelection = objWord.Selection

objSelection.Find.Text = stringForSearch
objSelection.Find.Forward = TRUE
objSelection.Find.MatchWholeWord = TRUE

If objSelection.Find.Execute Then
	Wscript.Echo "Found"
Else
	Wscript.Echo "Didn't find"
End If

objDoc.Close
Set objDoc = Nothing

Set objSelection = Nothing
Set objFSO = Nothing

objWord.Quit
Set objWord = Nothing