3 Replies Latest reply on Mar 23, 2009 8:11 PM by Patrick Leckey

    Open file - Search word - Copy word - Save file with word found

      I have a little problem:
      1 .- I need to open a name.pdf
      2 .- Search (Find) for a word 2009NNNNNN
      3 .- Copy 2009NNNNNN
      3 .- Save the file with your name_2009NNNNN.pdf

      Can you help? Thanks

      ''WHY NOT WORKING''

      SendKeys "+^(F)" ' lanzo la secuencia ''buscar'' mediante mayúsculas (+) , control (^), y la letra F
      SendKeys "200911111" ' lanzo la búsqueda de la parte del fichero 200911111
      Application.Wait Now + TimeValue("0:00:05") ' hago una pausa
      SendKeys "{ENTER}" ' lanzo la tecla intro con la cadena {ENTER}
      SendKeys "^(c)" ' copio la cadena que por defecto se marca al completo ejemplo 200911111***
      SendKeys "+^(s)" ' inicio el salvado del fichero
      Application.Wait Now + TimeValue("0:00:05") ' hago una pausa
      SendKeys "{END}" ' me posiciono al final del nombre del fichero
      Application.Wait Now + TimeValue("0:00:05") ' hago una pausa
      SendKeys "{LEFT}{LEFT}{LEFT}{LEFT}" ' Me pongo justo delante del punto del pdf osea .pdf
      SendKeys "(_)"
      SendKeys "^(v)" ' Pego la cadena anteriormente buscada
      Application.Wait Now + TimeValue("0:00:05") ' hago una pausa
      SendKeys "{ENTER}" ' Pincho intro para guardar
      Application.Wait Now + TimeValue("0:00:05")
      SendKeys "^(q)" ' Cierro la ventana del .pdf

      http://www.ayudaexcel.com/foro/macros-y-programacion-vba/2785-extraer-dato-de-un-archivo-p df.html#post12531