Exporting All Pages; Exporting A Range Of Pages; Exporting With File Naming - Adobe 27510753 - InDesign CS2 - PC Manual

108 Working with Documents in AppleScript

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
Adobe InDesign CS2 Scripting Guide