🚀 go-pugleaf

I'm trying to generate a font book from fonts loaded on my machine.

I have written the following script (based on different examples I've come across in these forums), but still have some limitations. At the moment the script makes a new document and text frame, creates a paragraph for each font, and then formats each paragraph, using the associated font.

      set mySize to 9
      set sampleText to "Quick Brown Dog Thing"
      tell application "InDesign 2.0.2"
      	set myFontList to get fonts
      	set the fontCount to the count of myFontList
      	set myDocument to make document
      	tell page 1 of myDocument
      		set myTextFrame to make text frame with properties {geometric bounds:{"20
      mm", "12 mm", "285 mm", "198 mm"}, contents:"blah"}
      		set allText to ""
      		tell myTextFrame
      			repeat with i from 1 to fontCount
      				set thisFont to (the name of item i of myFontList as string)
      				set allText to allText & return & thisFont & ": " & sampleText
      			end repeat
      			set contents to allText
      			repeat with i from 1 to fontCount
      				tell paragraph i
      					set applied font to item i of myFontList
      					set point size to mySize
      				end tell
      			end repeat
      		end tell
      	end tell
      end tell





This works until it fills up the text frame, and then errors. What I'd like to do is have the script automatically create new pages and flow on as required.