Adobe 27510753 Scripting Guide - Page 116
Exporting all s, Exporting a range of s, Exporting with file naming
UPC - 718659445294
View all Adobe 27510753 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 116 highlights
108 Working with Documents in AppleScript Adobe InDesign CS2 Scripting Guide Exporting all pages The following script exports the pages of the active document to one or more EPS files: --ExportAsEPS.as --An InDesign CS2 AppleScript --Exports all of the pages in the active document to a series of EPS files --(an EPS, by definition, can contain only a single page). tell application "Adobe InDesign CS2" set page range of EPS export preferences to all pages tell active document --You'll have to fill in your own file name. Files will be named --"myFile_01.eps", "myFile_02.eps", and so on. set myFileName to "yukino:myFile.eps" export format EPS type to myFileName without showing options end tell end tell Exporting a range of pages To control which pages are exported as EPS, set the page range property of the EPS export preferences to a page range string containing the page or pages that you want to export before exporting: --ExportPageRangeAsEPS.as --An InDesign CS2 AppleScript --Exports a range of pages to EPS. --Assumes you have a document open, and that that document --contains at least 12 pages. tell application "Adobe InDesign CS2" tell EPS export preferences --page range can be either all pages or a page range string --(just as you would enter it in the Print or Export EPS dialog box). set page range to "1, 3-6, 7, 9-11, 12" end tell tell active document export format EPS type to "yukino:test.eps" without showing options end tell end tell Exporting with file naming The following example exports each page as an EPS, but offers more control over file naming than the earlier example: --ExportEachPageAsEPS.as --An InDesign CS2 AppleScript --Exports each page of a document as EPS to a specified folder. --Display a "choose folder" dialog box. tell application "Adobe InDesign CS2" if (count documents) is not equal to 0 then my myChooseFolder() else display dialog "Please open a document and try again." end if end tell on myChooseFolder() set myFolder to choose folder with prompt "Choose a Folder" --Get the folder name (it'll be returned as a Unicode string) set myFolder to myFolder as string --Unofficial technique for changing Unicode folder name to plain text string. set myFolder to «class ktxt» of (myFolder as record) if myFolder is not equal to "" then my myExportPages(myFolder) end if