Hello
I downloaded sample scripts and looked into the PlaceMultipagePDF.applescript :
indesigncs4_samplescripts.zip
It seems that you have inserted some code into the myPlacePDF() handler and have not adjusted its flow control accordingly. (You need to break the loop promptly when the vDone is set to true)
Try something like the codes below :
--CODE1
--Place pdf
on vPlacePDF(vDocument, vPage, VPDF)
tell application "Adobe InDesign CS4"
set vDone to false
set PDF crop of PDF place preferences to crop media
set vCounter to 1
repeat until vDone is true
repeat 1 times -- # added
tell vDocument
if vCounter > 1 then
set vPage to make page at after vPage
end if
end tell
set page number of PDF place preferences to vCounter
get page number of PDF place preferences
tell vPage
set vPDFPage to place VPDF
set vPDFPage to item 1 of vPDFPage
end tell
get properties of PDF attributes of vPDFPage
if vCounter = 1 then
set vFirstPage to page number of PDF attributes of vPDFPage
else
if page number of PDF attributes of vPDFPage = vFirstPage then
tell vPage to delete
set vDone to true
exit repeat -- # added (exit inner one time loop; skip the rest of this iteration of inner loop)
end if
end if
--Put in the scale factor
set mydoc to active document
tell mydoc
select all
set absolute horizontal scale of selection to 50
set absolute vertical scale of selection to 50
select nothing
end tell
--Center
-- page size: top, left, bottom, right.
set {b, a, d, c} to bounds of page 1 of document 1
set mySelection to selection
set mydoc to active document
tell mydoc
select all
-- size of the item
set {y1, x1, y2, x2} to geometric bounds of selection
--center
move selection to {(c - x2 + x1) / 2, (d - y2 + y1) / 2}
select nothing
end tell
-- end Center
end repeat -- # added (end of inner one time loop)
set vCounter to vCounter + 1
end repeat
-- end place pdf
display alert "finished!"
end tell
end vPlacePDF
--END OF CODE1
Or more simply :
--CODE2
--Place pdf
on vPlacePDF(vDocument, vPage, VPDF)
tell application "Adobe InDesign CS4"
set PDF crop of PDF place preferences to crop media
set vCounter to 1
--set vDone to false -- # commented out (not used)
--repeat until vDone is true -- # replaced with the below
repeat -- # modified
tell vDocument
if vCounter > 1 then
set vPage to make page at after vPage
end if
end tell
set page number of PDF place preferences to vCounter
get page number of PDF place preferences
tell vPage
set vPDFPage to place VPDF
set vPDFPage to item 1 of vPDFPage
end tell
get properties of PDF attributes of vPDFPage
if vCounter = 1 then
set vFirstPage to page number of PDF attributes of vPDFPage
else
if page number of PDF attributes of vPDFPage = vFirstPage then
tell vPage to delete
--set vDone to true - # commented out (not used)
exit repeat -- # added
end if
end if
--Put in the scale factor
set mydoc to active document
tell mydoc
select all
set absolute horizontal scale of selection to 50
set absolute vertical scale of selection to 50
select nothing
end tell
--Center
-- page size: top, left, bottom, right.
set {b, a, d, c} to bounds of page 1 of document 1
set mySelection to selection
set mydoc to active document
tell mydoc
select all
-- size of the item
set {y1, x1, y2, x2} to geometric bounds of selection
--center
move selection to {(c - x2 + x1) / 2, (d - y2 + y1) / 2}
select nothing
end tell
-- end Center
set vCounter to vCounter + 1
end repeat
-- end place pdf
display alert "finished!"
end tell
end vPlacePDF
--END OF CODE2
Hope this may help,
H
Message was edited by: Hiroto (oops, fixed a typo in the first code)
