Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

VBA to split PDF File

Posted on 2009-05-12
6
Medium Priority
?
3,721 Views
Last Modified: 2012-05-06
Is there a VBA script available which will split a multipage PDF file into individual page PDF Files?
0
Comment
Question by:rob546109
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
6 Comments
 
LVL 46

Accepted Solution

by:
tbsgadi earned 1500 total points
ID: 24383634
0
 
LVL 32

Expert Comment

by:Robberbaron (robr)
ID: 24383972
a free method is PDFTK  http://www.pdfhacks.com/pdftk/  

it is a command line app that you can call from VBS with the correct parameters.

    actually wshexec may be better but i cant find my example.  http://www.microsoft.com/technet/scriptcenter/resources/qanda/may06/hey0519.mspx


Set oSH = CreateObject("WScript.Shell")
 
sFileInput = "C:\EE\test1.pdf"
sFileOutPrefix = "C:\ee\test1pg_%02d.pdf"
'build the comamnd line'
sPDFTK= "C:\Utils\pdftk.exe  " & sFileInput & " output  " & sFileOutPrefix
 
'---optionA-----'
oSH.Run sPDFTK, 1, True  'needs TRUE to wait until extern program has finished'
Set oSH = Nothing
 
 
'---------------OR---------'
'---option B---'
Set objExec = oSh.Exec(sPDFTK) 
   
Do Until objExec.Status > 0    '0=running,1=finished,2=failed'
    Wscript.Sleep 250
Loop 
 
Wscript.Echo objExec.StdOut.ReadAll()   'just for testing'
Set objExec = Nothing
set oSH = nothing

Open in new window

0
 
LVL 44

Expert Comment

by:Karl Heinz Kremer
ID: 24385470
If you want to use VBA, do you have access to Adobe Acrobat (the full version) on the system? If so, you can use VBA, and I can give you some pointers, but I need to know first if you have Acrobat.
0
 
LVL 32

Expert Comment

by:Robberbaron (robr)
ID: 24391050
apologies. hadnt read the op fully.

the VBS code can be used with Excel VBA with little change.
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article describes a method of delivering Word templates for use in merging Access data to Word documents, that requires no computer knowledge on the part of the recipient -- the templates are saved in table fields, and are extracted and install…
Instead of error trapping or hard-coding for non-updateable fields when using QODBC, let VBA automatically disable them when forms open. This way, users can view but not change the data. Part 1 explained how to use schema tables to do this. Part 2 h…
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …
Suggested Courses

610 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question