VB合并两个pdf文件成1个pdf档的源码

Question

求VB合并两个pdf文件的源码。

Answer 1

这个问题要问 Adobe 公司。PDF 文件是它的知识产权，文件格式没有公布。

Answer 2

还有一种方法是利用代码控制 Acrobat 软件，利用打开菜单和文档-插入页面菜单。

Answer 3

用coolutils软件包的PDFCombine.exe，可以用Shell语句调用它。http://www.coolutils.com/CommandLine/PDFCombine

Answer 4

需要引用adobe library
Dim gPDDocBase, gPDDocSource As Object
Set gPDDocBase = CreateObject("AcroExch.PDDoc")
Set gPDDocSource = CreateObject("AcroExch.PDDoc")
    strFileBase = "C:\1.pdf"
Do Until gPDDocBase.Open(strFileBase) = 0
    DoEvents
Loop
strFileSource = "C:\2.pdf"
Do Until gPDDocSource.Open(strFileSource) = 0
    DoEvents
Loop
gPDDocBase.InsertPages gPDDocBase.GetNumPages - 1, gPDDocSource, 0, 1, 0
gPDDocBase.Save 1, strFileBase
Set gPDDocBase = Nothing
Set gPDDocSource = Nothing