Planet PDF Forum Archive

Planet PDF ForumWowsers! This is page is old, head to the LIVE Planet PDF Forum. It features more than 10 conferences, covering everything from beginner to in-depth developer and pre-press discussions. If you wish to continue... one & two archive covers 1999-2011 (160,000 pages).


New Forum | Previous | Next | (P-PDF) Developers


Topic: RE: Extract Pages using OLE
Conf: (P-PDF) Developers, Msg: 57046
From: kdeabrew
Date: 5/29/2002 05:23 PM

> How would I extract pages into a new PDF using OLE
> I want this whole process to be automatic.

You'll want to try something like this...

Option Explicit ' Force variable declaration

' 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

You can see this, and download a VB6 project containing this code from -
http://www.codecuts.com/mainpage.asp?WebPageID=52

regards,

Karl De Abrew
karl@planetpdf.com
http://www.PlanetPDF.com/

PDF In-Depth Free Product Trials Ubiquitous PDF

Debenu Aerialist

The ultimate plug-in for Adobe Acrobat. Advanced splitting, merging, stamping, bookmarking, and link...

Download free demo

Debenu PDF Tools Pro

It's simple to use and will let you preview and edit PDF files, it's a Windows application that makes...

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.