🚀 go-pugleaf

Chris--

This one works for me--please give it at try!



--LayOutManga! 
--Lays out manga by placing all images from a specified folder into 
--a new InDesign document. Page order can be either "back to front" 
--or "front to back". Set myReverseOrder to false to get 
--standard Roman layout direction. 
set myReverseOrder to true 
--Set page height, page width 
set myPageWidth to 115 
set myPageHeight to 180 
--Display a "Choose Folder" dialog box. 
set myFolder to choose folder with prompt "Select the folder containing the files you want to place." 
tell application "Finder" 
	set myFiles to files of myFolder 
	set myNumberOfPages to (count myFiles) 
	--The sort method is not yet available for the OSX Finder. Make sure that the files in the folder 
	--are sorted in the order in which you want them to appear. 
	--Uncomment this line if you're using OS 9. 
	--set myFiles to sort files of myFolder by name 
end tell 
tell application "InDesign 2.0.2" 
	set myDocument to make document 
	set horizontal measurement units of view preferences to millimeters 
	set vertical measurement units of view preferences to millimeters 
	set myDocumentPreferences to document preferences of myDocument 
	set page height of myDocumentPreferences to myPageHeight 
	set page width of myDocumentPreferences to myPageWidth 
	set pages per spread of myDocumentPreferences to 1 
	set pages per document of myDocumentPreferences to myNumberOfPages 
	if myReverseOrder is true then 
		set myPageNumber to myNumberOfPages 
		set myPageIncrement to -1 
	else 
		set myPageNumber to 1 
		set myPageIncrement to 1 
	end if 
	repeat with myCounter from 1 to myNumberOfPages 
		set myFileName to item myCounter of myFiles as string 
		set myPage to page myPageNumber of myDocument 
		tell myPage 
			set myRectangle to make rectangle with properties {geometric bounds:{0, 0, myPageHeight, myPageWidth}} 
			tell myRectangle 
				place myFileName 
			end tell 
			fit myRectangle given content to frame 
			fit myRectangle given proportionally 
		end tell 
		set myPageNumber to myPageNumber + myPageIncrement 
	end repeat 
end tell 




Thanks,

Ole