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: Will CropPages work from a vbs script?
Conf: (P-PDF) Developers, Msg: 80453
From: carlosandreu
Date: 1/29/2003 11:45 PM

Hi, I'm trying to code a script in VBS to automatically crop a file, with no succes. The script don't throw any error but the page don't get cropped.

Could someone be so kind to take a look to the code and tell if I'm doing something wrong?

Thank in advance,
Carlos

VBS Code begins->

Public Const PDSaveIncremental = &H0 ' write changes only
Public Const PDSaveFull = &H1 ' write entire file
Public Const PDSaveCopy = &H2 ' write copy w'o affecting current state
Public Const PDSaveLinearized = &H4 ' writes the file linearized for
' page-served remote (net) access.
Public Const PDSaveBinaryOK = &H10 ' /* OK to store binary in file */
Public Const PDSaveCollectGarbage = &H20 ' perform garbage collection on unreferenced objects ''

Dim PDDoc, FileIn, FileOut, Rect

Set PDDoc = CreateObject("AcroExch.PDDoc")

FileIn = "d:\mis documentos\cas.pdf"
FileOut = "d:\mis documentos\cas-1.pdf"

Set Rect = CreateObject("AcroExch.Rect")

Rect.Top = 1062
Rect.Bottom = 90
Rect.Left = 0
Rect.Right = 821

PDDoc.Open FileIn
PDDoc.CropPages 0, 1, 0, Rect
PDDoc.Save PDSaveFull, FileOut
PDDoc.Close


Set PDDoc = nothing
Set Rect = nothing

<- VBS Code ends


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.