🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: adobe.scripting.indesign
Article #18448

Help - Win script to export single page pdf

#18448
From: Duffy Betterton
Date: Wed, 26 Mar 2003 14:59
28 lines
2329 bytes
I found this script to export an indesign document to single pdf's. I have a catalog that I need to send to the printer and of course they prefer individual pdfs. I would like to utilize scripting instead of exporting 250 pages individually. I think I am on the right track - but as a newbie to scripting I need some help. Here is my script so far with comments where I need help.

Private Sub Command1_Click()
Dim myInDesign As InDesign.Application
Rem This section gets the info from the document
Set myDocument = ActiveDocument
Set myName = myDocument
Set myPages = myDocument.Pages.Item(1)
Set myFolderPath = FullName
Rem How do I do this? (choose folder with prompt "Please select the folder you want to save your PDF pages in") as string
    Set myStyles = PDFExportStyles.Item
    Set myExportStyle = myStyles
    Rem How do I do this? to (choose from list myStyles with prompt "Please Choose an Export style") as string
    Rem This part is used to get a special character in the file name
    Why is this wrong? Set mySeparator = "_"
    Rem I need help setting the variables for the rest of the script. This is where things actually are happening
    repeat with anItem in myPages
        set myPageNumber to name of anItem as string
        set MyPDF to myFolderPath & myName & mySeparator & myPageNumber & ".pdf"
        set page range of PDF export preferences to myPageNumber
        Dim myDocument
            export format PDF type to MyPDF using myExportStyle without showing options
        end dim
    end repeat
end dim
End Sub

Thank you for any help you can provide.
Technical Details
Message-ID: <1de8769f.-1@WebX.la2eafNXanI>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-01!sn-xit-09!supernews.com!news.maxwell.syr.edu!xmission!nntp.infostrada.it!newsfeed01.sul.t-online.de!t-online.de!WebX

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f939a,e7e83f0a4ded951f,start
X-Google-Attributes: gidf939a,public
X-Google-ArrivalTime: 2003-03-26 07:08:06 PST
From: "Duffy Betterton" <publications@mtadistributors.com>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-01!sn-xit-09!supernews.com!news.maxwell.syr.edu!xmission!nntp.infostrada.it!newsfeed01.sul.t-online.de!t-online.de!WebX
Newsgroups: adobe.scripting.indesign
Subject: Help - Win script to export single page pdf
Message-ID: <1de8769f.-1@WebX.la2eafNXanI>
Date: Wed, 26 Mar 2003 06:59:28 -0800
Lines: 38
MIME-Version: 1.0
Content-Type: text/plain; charset="ISO-8859-1"
Content-Transfer-Encoding: 8bit