ilovepdf.com es un nuevo servicio web que te permite unir hasta 10 archivos PDF en uno o dividir un PDF en varios. El peso máximo por archivo son 8MB. Útil y simple.
El límite de 8MB tiene sentido, pero el límite de "10 archivos" es ridículo. Supongo que será 10 archivos de una vez. Porque si tengo 16 archivos puedo unir 8 y 8, obtener 2 PDFs, y luego unir esos 2 en uno.
Interesante. Para unir ficheros yo empleo la API del acrobat. Pero este servicio parece gratuito.
El codigo en vb.net para el que le interese. Hay que agregar la referencia a Interop.Acrobat:
Dim AcroApp As Type = Type.GetTypeFromProgID("AcroExch.App")
Dim AcrobatType As Type = Type.GetTypeFromProgID("AcroExch.AVDoc")
Dim AcroPD As Type = Type.GetTypeFromProgID("AcroExch.PDDoc")
Dim oApp As Acrobat.CAcroApp = Activator.CreateInstance(AcroApp)
Dim avdoc As Acrobat.CAcroAVDoc = Activator.CreateInstance(AcrobatType)
Dim adoc As Acrobat.CAcroPDDoc = Activator.CreateInstance(AcroPD)
Dim avdoc2 As Acrobat.CAcroAVDoc = Activator.CreateInstance(AcrobatType)
Dim adoc2 As Acrobat.CAcroPDDoc = Activator.CreateInstance(AcroPD)
oApp.Hide()
avdoc.Open(filenamePrimero, "Titulo temporal 1")
avdoc2.Open(filenameSegundo, "Titulo temporal 2")
adoc = avdoc.GetPDDoc()
adoc2 = avdoc2.GetPDDoc()
Dim pages As Integer = adoc2.GetNumPages()
Dim insert As Integer = adoc.InsertPages(0, adoc2, 0, pages, 0)
adoc.Save(3, filenameDestino)
adoc.Close()
adoc2.Close()
avdoc2.Close(1)
avdoc.Close(1)
Comentarios
PDF Split and merge: http://www.pdfsam.org/
Gratuíto y sin límite de archivos ni de peso.
El límite de 8MB tiene sentido, pero el límite de "10 archivos" es ridículo. Supongo que será 10 archivos de una vez. Porque si tengo 16 archivos puedo unir 8 y 8, obtener 2 PDFs, y luego unir esos 2 en uno.
Edito y añado a #1. En Ubuntu o Debian:
% aptitude install pdfsam
#3 si que te complicas la vida.
El programa que comenta #1 va muy bien... lo llevo usando desde hace tiempo.
Interesante. Para unir ficheros yo empleo la API del acrobat. Pero este servicio parece gratuito.
El codigo en vb.net para el que le interese. Hay que agregar la referencia a Interop.Acrobat:
Dim AcroApp As Type = Type.GetTypeFromProgID("AcroExch.App")
Dim AcrobatType As Type = Type.GetTypeFromProgID("AcroExch.AVDoc")
Dim AcroPD As Type = Type.GetTypeFromProgID("AcroExch.PDDoc")
Dim oApp As Acrobat.CAcroApp = Activator.CreateInstance(AcroApp)
Dim avdoc As Acrobat.CAcroAVDoc = Activator.CreateInstance(AcrobatType)
Dim adoc As Acrobat.CAcroPDDoc = Activator.CreateInstance(AcroPD)
Dim avdoc2 As Acrobat.CAcroAVDoc = Activator.CreateInstance(AcrobatType)
Dim adoc2 As Acrobat.CAcroPDDoc = Activator.CreateInstance(AcroPD)
oApp.Hide()
avdoc.Open(filenamePrimero, "Titulo temporal 1")
avdoc2.Open(filenameSegundo, "Titulo temporal 2")
adoc = avdoc.GetPDDoc()
adoc2 = avdoc2.GetPDDoc()
Dim pages As Integer = adoc2.GetNumPages()
Dim insert As Integer = adoc.InsertPages(0, adoc2, 0, pages, 0)
adoc.Save(3, filenameDestino)
adoc.Close()
adoc2.Close()
avdoc2.Close(1)
avdoc.Close(1)