I want to search a word in a doc file or excel sheet. How can i do it. I have
done it in text file using the code

sFilepath = "c:\work\abc.txt"
fileno = FreeFile
Open sFilepath For Input As fileno
While Not (EOF(fileno))
Line Input #fileno, sStr
If StrComp(sStr, sKeyword) = 0 Then
present = True
End If
Wend