PDF In-Depth

IAC - Extracting a page range from a PDF to an individual PDF

May 13, 1998

Advertisement
Advertisement
 

How to extract a page range from a PDF to an individual PDF file

This code sample is posted here for the general benefit of the PDF development community. Attribution and usage guidelines are as noted in the code source; please respect the wishes of the author when using this code.


Option
 Explicit
 ' Force variable declaration
' Company : Planet PDF
' URL : http://www.planetpdf.com/
' Date : 06 April 1998
' Updated : 09 March 1999
' Description: Sub btnExtractPage_Click()
' This vb method uses IAC to extract a page range from PDF
' document to a new PDF.
' In order to use this function you must have a file called
' "Source.pdf" in your temp folder. This method/function
' should be extended to suit the requirements of an
' organisation
Private
 Sub
 btnExtractPage_Click(
)
    Dim
 PDDocSource As
 Object
,
 PDDocTarget As
 Object    Dim
 iStartPage As
 Integer
,
 iNumPages As
 Integer    
    Set
 PDDocSource = CreateObject(
"AcroExch.PDDoc")    Set
 PDDocTarget = CreateObject(
"AcroExch.PDDoc")    
' Create a new PDDoc
    If
 PDDocTarget.
Create
 <> True
 Then        MsgBox "Unable to create a new PDF"        End    End
 If    
' Open the PDF source file (the file we are going to
'    take pages from)
    If
 PDDocSource.
Open
(
"c:\temp\source.pdf")
 <> True
 Then        MsgBox "Unable to open the source PDF"        End    End
 If    
' Set the page range you wish to extract
    iStartPage = 0 ' Don't forget that this is zero based
    
' Set the number of pages you wish to extract
    iNumPages = 2    
 ' Insert the pages from the source PDF file
 '    to the target PDF
    If
 PDDocTarget.
InsertPages(
-1,
 _
                               PDDocSource,
 _
                               iStartPage,
 _
                               iNumPages,
 _
                               False
)
 <> True
 Then        MsgBox "Unable to insert the source pages"        End    End
 If    
 ' Save the new file
    If
 PDDocTarget.
Save(
&H1,
 _
                        "c:\temp\target.pdf")
 <> True
 Then        MsgBox "Unable to save the pdf"        End    End
 If    
'Close the PDF files
    PDDocSource.
Close    PDDocTarget.
Close    
' Clean up
    Set
 PDDocSource = Nothing    Set
 PDDocTarget = Nothing    
End
 Sub
PDF In-Depth Free Product Trials Ubiquitous PDF

Debenu Quick PDF Library

Get products to market faster with this amazing PDF developer SDK. Over 900 functions and an equally...

Download free demo

Back to the past, 15 years ago! Open Publish 2002

Looking back to 2002, it's amazing how much of the prediction became a reality. Take a read and see what you think!

September 14, 2017
Platinum Sponsor





Search Planet PDF
more searching options...
Planet PDF Newsletter
Most Popular Articles
Featured Product

Debenu PDF Aerialist

The ultimate plug-in for Adobe Acrobat. Advanced splitting, merging, stamping, bookmarking, and link control. Take Acrobat to the next level.

Features

Adding a PDF Stamp Comment

OK, so you want to stamp your document. Maybe you need to give reviewers some advice about the document's status or sensitivity. This tip from author Ted Padova demonstrates how to add stamps with the Stamp Tool along with related comments.