>>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. >> >>>>