VBA combinar pdf con rutas en columna
Hace unas semanas logré averiguar una macro para poder combinar varios pdf cuyas rutas de archivo al pdf aparecen en una columna de excel, en concreto la columna AK. Puede darse el caso de que en dicha columna haya celdas vacías y otras sí contengan rutas al pdf. El rango comienza en ak4, el problema es que al ejecutar dicha macro, si no hay ninguna ruta de pdf en ak4, es decir, al inicio del rango, la macro se viene abajo y no continua con el resto de celdas de esa columna para combinar, no se si me explico. El problema no sucede si en ak4 hay una ruta a pdf.
La cuestión es: ¿Qué debo modificar para que la macro se ejecute y combine las rutas de pdf de dicha columna haya o no haya ruta al inicio del rango?.
Gracias, cualquier ayuda se agradece.
Saludos
Public Sub Merge_PDFs()
Dim objCAcroPDDocDestination As Acrobat.CAcroPDDoc
Dim objCAcroPDDocSource As Acrobat.CAcroPDDoc
Dim PDFfiles As Range, PDFfile As Range
Dim n As Long
With ActiveSheet
Set PDFfiles = .Range("Ak4", .Cells(.Rows.Count, "Ak").End(xlUp))
End With
'Create Acrobat API objects
Set objCAcroPDDocDestination = CreateObject("AcroExch.PDDoc")
Set objCAcroPDDocSource = CreateObject("AcroExch.PDDoc")
'Open first PDF file and merge other PDF files into it
n = 0
For Each PDFfile In PDFfiles
n = n + 1
If n = 1 Then
objCAcroPDDocDestination.Open PDFfile.Value
Else
objCAcroPDDocSource.Open PDFfile.Value
If Not objCAcroPDDocDestination.InsertPages(objCAcroPDDocDestination.GetNumPages - 1, objCAcroPDDocSource, 0, objCAcroPDDocSource.GetNumPages, 0) Then
MsgBox "Error merging " & PDFfile.Value
End If
objCAcroPDDocSource.Close
End If
Next
Save merged PDF files as a new file
objCAcroPDDocDestination.Save 1, ThisWorkbook.Path & "\prueba.pdf"
objCAcroPDDocDestination.Close
Set objCAcroPDDocSource = Nothing
Set objCAcroPDDocDestination = Nothing
MsgBox "Created " & ThisWorkbook.Path & "\prueba.pdf"
End Sub
