🚀 go-pugleaf

On Jan 20, 2004, at 1:17 PM, Anne Gordon wrote:

> Here is what the script should do:
> � count the number of images in a given folder

set theFolder to (choose folder with prompt "Choose the folder 
containing the pic files:")
set theFolderPath to theFolder as Unicode text
set theFileNames to list folder theFolder without invisibles
set picCount to count of items of theFileNames

> � open InDesign
> � open a new document with the same number of pages as are in the 
> image folder

tell application "InDesign CS"
	make document with properties {document preferences:{pages per 
document:picCount, page height:"11 in", page width:"8.5 in", facing 
pages:false}}

> � Create a picture box on each page with 1/2" page margin all around

	tell document 1
		repeat with i from 1 to picCount
			tell page picCount
				set newFrame to make rectangle with properties {geometric 
bounds:{".5 in", ".5 in", "10.5 in", "8 in"}}

> � Import the images in sequence into the picture boxes on each page

				set thePic to place (theFolderPath & (item i of theFileNames)) on 
newFrame
				fit thePic given proportionally
			end tell
		end repeat
	end tell
	beep
	display dialog "Finished."
end tell

--
Shane Stanley <sstanley@myriad-com.com.au>