EXCEL VBA如何从PDF中提取页面并生成若干个新PDF文件

youweiping999

这个也是在网上找的，很有用

Sub NewPDF()
    Dim ok As Boolean
    Dim PDFApp As Acrobat.AcroApp
    Dim pddoc As Acrobat.AcroPDDoc
    Dim tempPDDoc As Acrobat.AcroPDDoc
   
    Set PDFApp = CreateObject("AcroExch.App")
    Set pddoc = CreateObject("AcroExch.PDDoc")
    Set tempPDDoc = CreateObject("AcroExch.PDDoc")
    If Not tempPDDoc.Open("D:\output\1.pdf") Then
        Set tempddoc = Nothing
        Set pddoc = Nothing
        Set PDFApp = Nothing
        MsgBox Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Ïμí3DÅÏ￠"
        Exit Sub
    End If
    ok = pddoc.Open("D:\output\Excel.pdf")
        If ok <> -1 Then
            ok = pddoc.Create()
        End If
        Call pddoc.InsertPages(pddoc.GetNumPages() - 1, tempPDDoc, 0, tempPDDoc.GetNumPages(), False)
        ok = pddoc.Save(1, "D:\output\Excel.pdf")

        Call pddoc.Close
        tempPDDoc.Close
        PDFApp.Exit
        Set pddoc = Nothing
        Set tempPDDoc = Nothing
        Set PDFApp = Nothing
End Sub

568845168

我可以处理，使用VBA代码，我的QQ 568845168

LMY123

单个pdf重新命名，全路径,拆分PDF

shimen1526

小fisher 发表于 2016-2-28 21:02

fisher老师，代码运行时出现close作用于对象CAcroPDDoc时失败，我的是扫描下来的PDF，其他PDF都可以正常运行，这种情况怎么办？求指导

Kira016

小fisher 发表于 2016-3-1 20:59
工程中引用了Adobe Acrobat 10.0 Type Library类库（通常是C:\Program Files\Adobe\Acrobat 11.0\Acrobat\a ...

请问下，如果在拆分的时候还想给每个拆开来的PDF加密码，要怎么做呀？

liuguixu

小fisher 发表于 2016-2-28 21:02

小fisher 老师，能帮我看看PDF提取多页为单独PDF文件要怎样改代码吗，谢谢https://club.excelhome.net/thread-1634319-1-1.html

Redfaller

各位老师您好，请问将已选中的PDF文字标记高亮文本（标黄）应该是哪句 代码？跪谢！