🚀 go-pugleaf

Hi Adamcoop,

Try this, and tell me if it's work for you:



 
set mySize to 9 
set sampleText to "Quick Brown Dog Thing"

tell application "InDesign 2.0.2" 
	activate 
	set myFontList to get fonts 
	set the fontCount to the count of myFontList

	set myDocument to make document 
	set myMarginPreferences to margin preferences 
	tell page 1 of myDocument 
		set myTextFrame to make text frame with properties {geometric bounds:{"20 mm", "12 mm", "285 mm", "198 mm"}} 
	end tell

	repeat with i from 1 to fontCount 
		set thisText to (the name of item i of myFontList as string)

		set text contents of insertion point -1 of myTextFrame to (thisText & tab & sampleText & return)

		if myTextFrame is overflows then 
			-- thanks to Dave Saunders for this part (insert a new page and flow text)			 
			set myFrame to myTextFrame 
			tell myDocument 
				-- be carrefull: use YOUR master page name (I work with a french version) 
				set myMaster to object reference of master spread "A-Page type" 
				set myNewPage to make page with properties {applied master:myMaster} 
			end tell 
			set active spread of active window to parent of myNewPage -- show the new page

			tell myNewPage 
				set myTextFrame to make text frame with properties {geometric bounds:{"20 mm", "12 mm", "285 mm", "198 mm"}} 
			end tell 
			set next text frame of myFrame to myTextFrame -- text flow 
		end if

		tell paragraph i of parent story of myTextFrame 
			set applied font to item i of myFontList 
			set point size to mySize 
		end tell 
	end repeat 
end tell 




Olivier.