AppleScript and Pages: Column Lines with Gutters

Column Lines with Gutters

Here’s a script for using lines to create a grid of gutter-separated columns:

Column Lines with Gutters

property defaultVerticalMargin : 36

property defaultHorizontalMargin : 36

property defaultgutterWidth : 12

property defaultColumnCount : 3

tell application "Pages"

activate

set chosenPageSize to ¬

(choose from list {"Cancel", "A3", "A4", "A5", "B5", "US Letter", "US Legal", "Tabloid"} with prompt "Pick the page size:")

if chosenPageSize is false then error number -128

set chosenPageSize to chosenPageSize as string

if chosenPageSize is "A4" then

set thisPageDimensions to {595, 842}

else if chosenPageSize is "A3" then

set thisPageDimensions to {842, 1191}

else if chosenPageSize is "A5" then

set thisPageDimensions to {420, 595}

else if chosenPageSize is "B5" then

set thisPageDimensions to {499, 709}

else if chosenPageSize is "US Letter" then

set thisPageDimensions to {612, 792}

else if chosenPageSize is "US Legal" then

set thisPageDimensions to {612, 1008}

else if chosenPageSize is "Tabloid" then

set thisPageDimensions to {792, 1224}

end if

copy thisPageDimensions to {documentWidth, documentHeight}

set thisPrompt to "Enter the top margin height in pixels:"

set verticalTopMarginHeight to my promptForIntegerValue(thisPrompt, 0, documentHeight div 2, defaultVerticalMargin)

set thisPrompt to "Enter the bottom margin height in pixels:"

set verticalBottomMarginHeight to my promptForIntegerValue(thisPrompt, 0, documentHeight div 2, defaultVerticalMargin)

set thisPrompt to "Enter the left margin width in pixels:"

set sideLeftMarginWidth to my promptForIntegerValue(thisPrompt, 0, documentHeight div 2, defaultHorizontalMargin)

set thisPrompt to "Enter the right margin width in pixels:"

set sideRightMarginWidth to my promptForIntegerValue(thisPrompt, 0, documentHeight div 2, defaultHorizontalMargin)

set thisPrompt to "Enter the vertical gutter width in pixels:"

set gutterWidth to my promptForIntegerValue(thisPrompt, 0, 200, defaultgutterWidth)

set thisPrompt to "Enter the column count:"

set columnCount to my promptForIntegerValue(thisPrompt, 2, 50, defaultColumnCount)

set gutterCount to columnCount - 1

set editableAreaWidth to documentWidth - sideLeftMarginWidth - sideRightMarginWidth

set editableColumnAreaWidth to editableAreaWidth - (gutterCount * gutterWidth)

set editableSegmentWidth to editableColumnAreaWidth div columnCount

tell document 1

tell current page

set startPointVertical to verticalTopMarginHeight

set endPointVertical to documentHeight - verticalBottomMarginHeight

set thisStartPointHorizontal to sideLeftMarginWidth

set thisEndPointHorizontal to sideLeftMarginWidth

set repeatCount to columnCount + 1 -- add a line for the side

repeat with i from 1 to the repeatCount

-- MAKE LINE

set newLine to make new line

tell newLine

set start point to {thisStartPointHorizontal, startPointVertical}

set end point to {thisEndPointHorizontal, endPointVertical}

set locked to true

end tell

if i is not 1 and i is not repeatCount then

-- ADD GUTTER

set thisStartPointHorizontal to thisStartPointHorizontal + gutterWidth

set thisEndPointHorizontal to thisEndPointHorizontal + gutterWidth

set newLine to make new line

tell newLine

set start point to {thisStartPointHorizontal, startPointVertical}

set end point to {thisEndPointHorizontal, endPointVertical}

set locked to true

end tell

-- INCREMENT VERTICAL POSITION

set thisStartPointHorizontal to thisStartPointHorizontal + editableSegmentWidth

set thisEndPointHorizontal to thisEndPointHorizontal + editableSegmentWidth

else

-- INCREMENT VERTICAL POSITION

set thisStartPointHorizontal to thisStartPointHorizontal + editableSegmentWidth

set thisEndPointHorizontal to thisEndPointHorizontal + editableSegmentWidth

end if

end repeat

end tell

on promptForIntegerValue(thisPrompt, minimumValue, maximumValue, defaultValue)

tell application "Pages"

repeat

100

display dialog thisPrompt default answer (defaultValue as string)

101

try

102

set thisValue to (the text returned of the result) as integer

103

if thisValue is greater than or equal to minimumValue and thisValue is less than or equal to maximumValue then

104

return thisValue

105

end if

106

on error

107

beep

108

end try

109

end repeat

110

end tell

111

end promptForIntegerValue

TOP | CONTINUE

PAGES SCRIPTING

DISCLAIMER

THIS WEBSITE IS NOT HOSTED BY APPLE INC.

Mention of third-party websites and products is for informational purposes only and constitutes neither an endorsement nor a recommendation. MACOSXAUTOMATION.COM assumes no responsibility with regard to the selection, performance or use of information or products found at third-party websites. MACOSXAUTOMATION.COM provides this only as a convenience to our users. MACOSXAUTOMATION.COM has not tested the information found on these sites and makes no representations regarding its accuracy or reliability. There are risks inherent in the use of any information or products found on the Internet, and MACOSXAUTOMATION.COM assumes no responsibility in this regard. Please understand that a third-party site is independent from MACOSXAUTOMATION.COM and that MACOSXAUTOMATION.COM has no control over the content on that website. Please contact the vendor for additional information.