I have some word and I have an changeable string. I would like search the keywords in this string and if the value is matched that give back the matched value.
Thanks your help
Code: Select all
$3::
for window in ComObjCreate("Shell.Application").Windows
{
fullpath := ""
try fullpath := window.Document.Folder.Self.Path
If WinActive("ahk_id " . Window.HWND)
break
}
Haystack := fullpath
Needle := FRAPNPOE|FRAPMDE|UKAPNPO|UKAPPO|ITAPPO|ITAPNPO|DEAPMD
IfInString, Haystack, %Needle%
{
MsgBox, %Needle%
return
}
return