调用VBS实现PDF文档合并

cdthinker

功能 按钮1_点击()
    变量 strProgram,VBS
    strProgram = "Dim app, srcDoc, destDoc \r\n"
    strProgram = strProgram & "Set app = CreateObject(\"AcroExch.App\") \r\n"
    strProgram = strProgram & "Set srcDoc = CreateObject(\"AcroExch.PDDoc\") \r\n"
    strProgram = strProgram & "Set destDoc = CreateObject(\"AcroExch.PDDoc\") \r\n"
    strProgram = strProgram & "srcPath=\"C:\\Users\\ZM\\Desktop\\cs.pdf\" \r\n"
    strProgram = strProgram & "destPath=\"C:\\Users\\ZM\\Desktop\\SS.pdf\" \r\n"
    strProgram = strProgram & "srcDoc.Open srcPath \r\n"
    strProgram = strProgram & "destDoc.Open destPath \r\n"
    strProgram = strProgram & "destDoc.Create \r\n"
    //strProgram = strProgram & "For i=1 to 10 \r\n"
    strProgram = strProgram & "destDoc.InsertPages destDoc.GetNumPages()-1, srcDoc, 0, srcDoc.GetNumPages(), 0 \r\n"
    //strProgram = strProgram & "next \r\n"
    strProgram = strProgram & "destDoc.Save 0, destPath \r\n"
    strProgram = strProgram & "srcDoc.Close \r\n"
    strProgram = strProgram & "destDoc.Close \r\n"
    strProgram = strProgram & "app.Exit"
    VBS = com("ScriptControl")
    VBS.language = "VBScript"
    VBS.addcode(strProgram)
结束

/////TC直接调用AcroExch对象插入页不执行,有需要的可以研究一下
功能 按钮0_点击()
    变量 pac = "C:\\Users\\ZM\\Desktop\\ss.pdf"
    变量 pac2 = "C:\\Users\\ZM\\Desktop\\cs.pdf"
    变量 AcroPDDoc = 插件("AcroExch.PDDoc")
    变量 AcroPDDoc2 = 插件("AcroExch.PDDoc")
    AcroPDDoc.Open(pac)
    变量 ok = AcroPDDoc2.Open(pac2)
    变量 GetNumPdf = AcroPDDoc.GetNumPages()
    变量 GetNumPdf2 = AcroPDDoc2.GetNumPages()
    如果(ok == 0)
        AcroPDDoc2.Create()
    结束
    变量 插入页 = null
    如果(GetNumPdf2 == -1)
        插入页 = -1
    否则
        插入页 = GetNumPdf2 - 1
    结束
    AcroPDDoc2.InsertPages(插入页, AcroPDDoc, 0, GetNumPdf, 1)//该处不执行 ,有需要的可以研究一下
    AcroPDDoc2.Save(1, pac2)
    调试输出("成功")
    AcroPDDoc = null
    AcroPDDoc2 = null
    AcroPDDoc.Close()
    AcroPDDoc2.Close()
结束