IF ADIR(aa,"c:\*.pdf")<=0 ?"???" RETURN ENDIF lcfind="yourword" oShell = CreateObject("WScript.Shell") FOR ia =1 TO ALEN(aa,1) _cliptext="" oShell.Run("c:\"+aa[ia,1]) lnsec=SECONDS() DO WHILE NOT oShell.AppActivate("Acrobat Reader - ["+aa[ia,1]+"]") and; SECONDS()-lnsec <60 WAIT WINDOW TIMEOUT 1.0 "Open "+aa[ia,1] ENDDO IF oShell.AppActivate("Acrobat Reader - ["+aa[ia,1]+"]") oShell.SendKeys("%ES") oShell.SendKeys("%EC") INKEY(5) oShell.SendKeys("%FC") &&close pdf file ENDIF ?aa[ia,1], lcfind$_cliptext ENDFOR IF oShell.AppActivate("Acrobat Reader") oShell.SendKeys("%Fx") endif oShell =.null.>Hi