ExtractPages

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

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