Separar paginas de archivo pdf en archivos independientes.

[Bernardo]

Buenas noches. 

La cuestión es la siguiente:  en mi trabajo escaneo documentos, cada uno de ellos de dos paginas a doble cara. Para hacer el trabajo más fluido, y teniendo en cuenta, que no puedo instalar programas externos, como el pdf sam, quisiera saber si existe una macro que abra el archivo pdf y cree un archivo pdf cada cuatro páginas . Si no es posible, como podria seleccionar cada cuatro páginas del archivo para imprimir con microsoft print to pdf de excel.

Muchas gracias, espero vuestra ayuda. 

[Abraham Valencia]

Prueba así, no olvides reemplazar por tus rutas:

Sub ExtraerPaginasPDF()
Dim jso As Object, PDDoc  As Object, AVDoc As Object, gApp As Object
Dim Ruta As String, Nombre As String
Dim x As Long
Let Ruta = "D:\Varios\Por clasificar\Matriz.pdf"
Set gApp = CreateObject("Acroexch.app")
Set AVDoc = CreateObject("AcroExch.AVDoc")
If (AVDoc.Open(Ruta, Ruta)) Then
    Set AVPageView = AVDoc.GetAVPageView
    Set PDDoc = AVDoc.GetPDDoc()
    Set jso = PDDoc.GetJSObject
    For x = 0 To jso.numPages - 1
        Nombre = "D:\Carpeta\" & "Página_" & Right(x + 1001, 3) & ".pdf"
        jso.extractPages x, x, Nombre
    Next
End If
gApp.exit
MsgBox "Listo"
Set jso = Nothing
Set PDDoc = Nothing
Set AVDoc = Nothing
Set gApp = Nothing
End Sub

Ah, ojo, aquí creo un pdf por página, ya queda como tarea para ti que sea cada cuatro.

[Bernardo]

Hola, sé que ha pasado mucho tiempo, pero no he tenido mucho tiempo, probé la macro pero me da el siguiente error:

            Se ha producido el error '429' en tiempo de ejecución:

           El componente ActiveX no puede crear el objeto

En la línea:      Set gApp = CreateObject("Acroexch.app"), si desactivo la línea me da el error en la siguiente línea     Set AVDoc = CreateObject("AcroExch.AVDoc").

He probado a inserta en Referencias del editor de visual basic algunos controles activex pero sigo igual, me podrías orientar, por favor.

La verdad que no tengo ni idea de lo que tengo que hacer para solventar el problema. Lo del número de copias ya lo intentaré una vez solventado este problema.

 

Muchas gracias y perdona la tardanza.

 

 

[Abraham Valencia]

En el editor de VBA activa la referencia "Acrobat" o la "Adobe Acrobat 10.0 Type Library" (en donde el 10.0 puede ser otro número dependiendo de la versión de tu PC), asimismo he de comentar que solo se podrá hacer si tienes el "Adobe Acrobat Pro" o el "Adobe Acrobat Reader DC" con las herramientas de pago habilitadas. No funcionará con otros visores de PDF.