Adobe 27510753 Scripting Guide - Page 116

Exporting all s, Exporting a range of s, Exporting with file naming

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

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 32
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • 44
  • 45
  • 46
  • 47
  • 48
  • 49
  • 50
  • 51
  • 52
  • 53
  • 54
  • 55
  • 56
  • 57
  • 58
  • 59
  • 60
  • 61
  • 62
  • 63
  • 64
  • 65
  • 66
  • 67
  • 68
  • 69
  • 70
  • 71
  • 72
  • 73
  • 74
  • 75
  • 76
  • 77
  • 78
  • 79
  • 80
  • 81
  • 82
  • 83
  • 84
  • 85
  • 86
  • 87
  • 88
  • 89
  • 90
  • 91
  • 92
  • 93
  • 94
  • 95
  • 96
  • 97
  • 98
  • 99
  • 100
  • 101
  • 102
  • 103
  • 104
  • 105
  • 106
  • 107
  • 108
  • 109
  • 110
  • 111
  • 112
  • 113
  • 114
  • 115
  • 116
  • 117
  • 118
  • 119
  • 120
  • 121
  • 122
  • 123
  • 124
  • 125
  • 126
  • 127
  • 128
  • 129
  • 130
  • 131
  • 132
  • 133
  • 134
  • 135
  • 136
  • 137
  • 138
  • 139
  • 140
  • 141
  • 142
  • 143
  • 144
  • 145
  • 146
  • 147
  • 148
  • 149
  • 150
  • 151
  • 152
  • 153
  • 154
  • 155
  • 156
  • 157
  • 158
  • 159
  • 160
  • 161
  • 162
  • 163
  • 164
  • 165
  • 166
  • 167
  • 168
  • 169
  • 170
  • 171
  • 172
  • 173
  • 174
  • 175
  • 176
  • 177
  • 178
  • 179
  • 180
  • 181
  • 182
  • 183
  • 184

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