Adobe 27510753 - InDesign CS2 - PC Manual page 102

94 Working with Documents in AppleScript
tell grid preferences
set baseline start to 56
set baseline division to 14
set baseline grid shown to false
set horizontal gridline division to 14
set horizontal grid subdivision to 5
set vertical gridline division to 14
set vertical grid subdivision to 5
set document grid shown to false
end tell
--Document XMP information.
tell metadata preferences
set author to "Olav Martin Kvern"
set copyright info URL to "http:--www.adobe.com"
set copyright notice to "This document is not copyrighted."
set copyright status to no
set description to "Example 7 x 9 book layout"
set document title to "Example"
set job name to "7 x 9 book layout template"
set keywords to {"7 x 9", "book", "template"}
set myNewContainer to create container item
set property namespace "http://ns.adobe.com/xap/1.0/"
end tell
--Set up the master spread.
tell master spread 1
tell page 1
namespace "http://ns.adobe.com/xap/1.0/" path "email"
path "email/*[1]" value "okvern@adobe.com"
set myMarginPreferences to margin preferences
set myBottomMargin to (page height of document preferences of myDocument ¬
- (bottom of myMarginPreferences)
set myLeftMargin to right of myMarginPreferences
set myRightMargin to (page width of document preferences of myDocument)
- (left of myMarginPreferences)
make guide with properties {orientation:vertical, location:myRightMargin, ¬
item layer:layer "GuideLayer" of myDocument}
make guide with properties {orientation:vertical, location:myLeftMargin, ¬
item layer:layer "GuideLayer" of myDocument}
make guide with properties {orientation:horizontal,
location:top of myMarginPreferences,
item layer:layer "GuideLayer" of myDocument, fit to page:false}
make guide with properties {orientation:horizontal,
location:myBottomMargin,
item layer:layer "GuideLayer" of myDocument, fit to page:false}
make guide with properties {orientation:horizontal,
location:myBottomMargin + 14,
item layer:layer "GuideLayer" of myDocument, fit to page:false}
make guide with properties {orientation:horizontal,
location:myBottomMargin + 28,
item layer:layer "GuideLayer" of myDocument, fit to page:false}
set myLeftFooter to make text frame with properties
{item layer:layer "Footer" of myDocument,
geometric bounds:{myBottomMargin + 14, right of myMarginPreferences,
myBottomMargin + 28, myRightMargin}}
set contents of insertion point 1 of parent story of myLeftFooter
to section marker
set contents of insertion point 1 of parent story of myLeftFooter
to Em space
set contents of insertion point 1 of parent story of myLeftFooter
to auto page number
set applied character style of character 1 of parent story of
myLeftFooter to character style "page_number" of myDocument
set applied paragraph style of paragraph 1 of parent story of
myLeftFooter to paragraph style "footer_left" of myDocument
--Slug information.
tell metadata preferences of myDocument
set myEmail to get property
namespace "http://ns.adobe.com/xap/1.0/" path "email/*[1]"
¬
¬
¬
¬
¬
¬
¬
Adobe InDesign CS2 Scripting Guide
¬
¬
¬
¬
¬
¬
¬
¬
¬
¬
¬
¬
¬