Xin cám ơn anh nhiều, để em nghiên cứu...
Đây là quan điểm thôi bạn, chứ tôi thì không bao giờ dùng tới Acrobat (Bản thân không có nhu cầu dùng nhiều vào Acrobat, mục đích chủ yếu của tôi là dùng phần mềm xem file PDF mà nếu sử dụng Acrobat thì nặng quá, dùng phần mềm khác để xem sẽ nhẹ hợn).
stackoverflow.com
wellsr.com
Dạ, cám ơn anh, e cũng đang tìm hiểu ạ.Đây là quan điểm thôi bạn, chứ tôi thì không bao giờ dùng tới Acrobat (Bản thân không có nhu cầu dùng nhiều vào Acrobat, mục đích chủ yếu của tôi là dùng phần mềm xem file PDF mà nếu sử dụng Acrobat thì nặng quá, dùng phần mềm khác để xem sẽ nhẹ hợn).
Bạn có thể nghiên cứu chỏ này.
VBA, Combine PDFs into one PDF file
I am trying to combine PDF's into one single pdf with the use of vba. I would like to not use a plug in tool and have tried with acrobat api below. I have tried something like, but cannot seem to ...Combine PDFs with VBA and Adobe Acrobat - wellsr.com
Combine PDFs with VBA using this macro. The simplicity of this tutorial illustrates how easy it is to use Adobe Acrobat to merge PDF files in Word and Excel.[SOLVED] Need code to merge PDF files in a folder using adobe acrobat X
Hi, I need a code to merge all the PDF files in a folder using adobe acrobat X full version. I will provide the link to the folder in Range E3. Can anybody help me with this. Thanks:yeswww.vbaexpress.com
Sub JointMultiFilePDF_ByAcrobat(ByVal sTargetPDF As String, ByVal arrFilePDF)
Dim oAcroApp As Object, oTargetDoc As Object, oSourceDoc As Object, oFSO As Object
Dim i As Integer, iTotalNumberOfPages_SourceToInsert As Long, iLastNumPages_Target As Long
Dim blIsOK As Boolean
Dim PDSaveFull
Set oFSO = CreateObject("Scripting.FileSystemObject")
If Not oFSO.FileExists(sTargetPDF) Then
MsgBox "File target: """ & sTargetPDF & """ is NOT available !!!", vbExclamation, "---:: NOTICE ::---"
GoTo ErrorHandle
End If
Set oAcroApp = CreateObject("Acroexch.app")
Set oTargetDoc = CreateObject("AcroExch.PDDoc")
blIsOK = oTargetDoc.Open(sTargetPDF)
If Not blIsOK Then
MsgBox "Can NOT open File target: """ & sTargetPDF & """ !!!", vbExclamation, "---:: NOTICE ::---"
GoTo ErrorHandle
End If
If IsArray(arrFilePDF) Then
For i = LBound(arrFilePDF) To UBound(arrFilePDF)
If oFSO.FileExists(arrFilePDF(i)) Then
Set oSourceDoc = CreateObject("AcroExch.PDDoc")
blIsOK = oSourceDoc.Open(arrFilePDF(i))
If blIsOK Then
iLastNumPages_Target = oTargetDoc.GetNumPages() - 1
iTotalNumberOfPages_SourceToInsert = oSourceDoc.GetNumPages
blIsOK = oTargetDoc.InsertPages(iLastNumPages_Target, oSourceDoc, 0, iTotalNumberOfPages_SourceToInsert, False)
If blIsOK Then
blIsOK = oTargetDoc.Save(PDSaveFull, sTargetPDF)
Else
MsgBox "Can NOT joint File: """ & arrFilePDF(i) & """", vbExclamation, "---:: NOTICE ::---"
End If
Else
GoTo NextFilePDF
End If
Set oSourceDoc = Nothing
End If
NextFilePDF:
Next i
End If
ErrorHandle:
Set oFSO = Nothing
Set oTargetDoc = Nothing
Set oSourceDoc = Nothing
oAcroApp.Exit
Set oAcroApp = Nothing
MsgBox "DONE", vbInformation, "---:: NOTICE ::---"
End Sub
