http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 13 Jul 2026 12:24:07 +0000 Thu, 22 Dec 2005 23:02:47 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=220 http://www.quickpdf.org/forum/forum_images/QPDF_Forum_Title.png http://www.quickpdf.org/forum/ http://www.quickpdf.org/forum/extractpages_topic220_post756.html#756 Author: Michel_K17
Subject: 220
Posted: 22 Dec 05 at 11:02PM

I used the ExtractPages for nearly 2 years without any problems. I think you are correct: the documentation is wrong. Here is my code but note that I use "SelectedDocument" to get the Doc ID.

Private Function PDF_Extract_Page(InFile As String, OutFile As String, page As String) As Long
    Dim hDoc1Page As Long
    
    ' Trap Errors
    On Error GoTo Error_Handler
    
    
    ' Get rid of ".pdf"
    If Len(OutFile) > 4 Then
        OutFile = Left$(OutFile, Len(OutFile) - 4) & "_"
    Else
        Exit Function
    End If

    ' Create a new single page document
    rtn = oPDF.SelectDocument(hDoc)
    hDoc1Page = oPDF.ExtractPages(Val(page), 1)
    hDoc1Page = oPDF.SelectedDocument()

    ' Save it
    rtn = oPDF.SaveToFile(OutFile & Format$(Val(page), "0000") & PDF)

    ' Get rid of single page doc
    rtn = oPDF.RemoveDocument(hDoc1Page)

    ' Job Complete
    PDF_Extract_Page = True
    Exit Function
    
Error_Handler:
    olog.LogError False, Err.Number, Err.Description, Err.LastDllError, "PDF_Extract_Page"
End Function


Edited by Michel_K17]]> Thu, 22 Dec 2005 23:02:47 +0000 http://www.quickpdf.org/forum/extractpages_topic220_post756.html#756 http://www.quickpdf.org/forum/extractpages_topic220_post753.html#753 Author: chicks
Subject: 220
Posted: 22 Dec 05 at 6:32PM

Haven't tested it, and the doc does say that SelectDocument() returns an ID, but maybe it's returning the doc's index instead? Put some debug code in to print out exactly what it's returning. If it's 1 or 2 or 3, it's the index, and you'll need to use DocumentID() to get the actual ID, which is usually a multi-digit number.
]]> Thu, 22 Dec 2005 18:32:59 +0000 http://www.quickpdf.org/forum/extractpages_topic220_post753.html#753 http://www.quickpdf.org/forum/extractpages_topic220_post749.html#749 Author: GreatPyr
Subject: 220
Posted: 22 Dec 05 at 5:39PM

Do I need to merge the extracted pages? If I take the last two lines off the code, it seems to work. Somehow the extracted pages find their way to lngDoc1, even though it's not the selected document. I'm just not comfortable with it until I know why it's working.

I wish there was some documentation for this stuff.

Edited by GreatPyr]]> Thu, 22 Dec 2005 17:39:38 +0000 http://www.quickpdf.org/forum/extractpages_topic220_post749.html#749 http://www.quickpdf.org/forum/extractpages_topic220_post747.html#747 Author: GreatPyr
Subject: 220
Posted: 22 Dec 05 at 4:54PM

Everytime I execute the VB code below, ExtractPages always returns 1 in lngDoc2. The documentation said it would return the ID of the new document containing the extracted pages. Any ideas what I'm doing wrong?

Thanks.

        WorkingPDF.LoadFromFile ("MainDoc.pdf")
        lngDoc1 = WorkingPDF.SelectedDocument
        WorkingPDF.LoadFromFile ("IA-004405.pdf")
        lngDoc3 = WorkingPDF.SelectedDocument
        lngDoc2 = WorkingPDF.ExtractPages(1, 4)
        WorkingPDF.SelectDocument (lngDoc1)
        WorkingPDF.MergeDocument (lngDoc2)
]]> Thu, 22 Dec 2005 16:54:53 +0000 http://www.quickpdf.org/forum/extractpages_topic220_post747.html#747