🚀 go-pugleaf

in article ef9252e.-1@WebX.aaQKaf7vad4, Duncan Sage wrote:

> I'm looking for some expert advice on how to produce a script that will enable
> me to automate the production of next page and previous page hyperlink buttons
> to go on the bottom of each page of several scientific reports to be exported
> to Acrobat, ie if the viewer is  on page 3 there will be one button to take
> them back to page 2 and one to take them on to page 4. The reports vary in
> size (in terms of the number of pages - all 100+) so i was hoping there was a
> way to run the script once (for each report) and have all the hyperlinks
> created as opposed to running it on each page of each report. i'd be extremely
> grateful of any help that anyone can give. duncan


This should get you started:

tell application "InDesign 2.0.1"
 tell document 1
  tell view preferences
   set horizontal measurement units to points
   set vertical measurement units to points
  end tell
  tell document preferences
   set theWidth to page width
   set theheight to page height
  end tell
  set fromBoxBounds to {theheight - 24, 0, theheight, theWidth / 3}
  set toBoxBounds to {theheight - 24, theWidth * 2 / 3, theheight, theWidth}
  set pageCount to count of pages
  repeat with i from 1 to pageCount
   if i > 1 then
    set backFrame to make text frame at page i with properties {visible
bounds:fromBoxBounds, contents:("To page " & (i - 1))}
    set backSource to make hyperlink page item source with properties
{source page item:backFrame}
    set backDest to make hyperlink page destination with properties
{destination page:page (i - 1) of document 1}
    make hyperlink with properties {name:("Page " & i & " back"),
source:backSource, destination:backDest, visible:true, border
color:burgundy, width:medium, border style:dashed}
   end if
   if i < pageCount then
    set forwardFrame to make text frame at page i with properties {visible
bounds:toBoxBounds, contents:("To page " & (i + 1))}
    set forwardSource to make hyperlink page item source with properties
{source page item:forwardFrame}
    set forwardDest to make hyperlink page destination with properties
{destination page:page (i + 1) of document 1}
    make hyperlink with properties {name:("Page " & i & " forward"),
source:forwardSource, destination:forwardDest, visible:true, border
color:burgundy, width:medium, border style:dashed}
   end if
  end repeat
 end tell

-- 
Shane Stanley,  sstanley@myriad-com.com.au