Guardar archivo pdf abierto.
Publicado por Salvador (18 intervenciones) el 29/01/2017 22:39:17
Hola:
Imaginemos que hay un archivo abierto llamado "20170129100015.pdf" (año, mes, día, hora minuto y segundo) y quisiera guardarlo en una carpeta: "C:\Archivos\". ¿Hay alguna forma de automatizar el guardar-como?
Me gustaría, si es posible, hacer referencia al archivo que esté abierto (solo habría un pdf abierto) sin especificar la ruta completa porque puede cambiar, sino solo a parte del nombre (por ejemplo el año será común en todos los pdf´s que abra; lo digo por si hubiera que activar la ventana haciendo referencia a parte de su título). Si no fuera posible, me conformo con la ruta completa.
En Excel tengo esto de abajo, pero me gustaría adaptarlo (y no sé cómo) a un icono en vbs:
También tengo esto otro que activa la ventana abierta, y mediante sendkeys llego hasta el menú de guardar-como (por si os sugiere alguna idea):
End sub
Saludos.
Imaginemos que hay un archivo abierto llamado "20170129100015.pdf" (año, mes, día, hora minuto y segundo) y quisiera guardarlo en una carpeta: "C:\Archivos\". ¿Hay alguna forma de automatizar el guardar-como?
Me gustaría, si es posible, hacer referencia al archivo que esté abierto (solo habría un pdf abierto) sin especificar la ruta completa porque puede cambiar, sino solo a parte del nombre (por ejemplo el año será común en todos los pdf´s que abra; lo digo por si hubiera que activar la ventana haciendo referencia a parte de su título). Si no fuera posible, me conformo con la ruta completa.
En Excel tengo esto de abajo, pero me gustaría adaptarlo (y no sé cómo) a un icono en vbs:
1
2
3
4
5
6
Sub AbrirPdf()
Dim wshShell
Set wshShell = CreateObject("WScript.Shell")
wshShell.Run """C:\Archivo\Escaner.pdf"""
Set wshShell = Nothing
End Sub
También tengo esto otro que activa la ventana abierta, y mediante sendkeys llego hasta el menú de guardar-como (por si os sugiere alguna idea):
1
2
3
4
5
Sub Abrir_PDF_con_rundll32()
ArchivoPDF = "C:\Archivos\20170129100015.pdf"
Shell "RunDll32.Exe Url.Dll,FileProtocolHandler " & ArchivoPDF, vbNormalFocus
...
Sendkey...
End sub
Saludos.
Valora esta pregunta
0