🚀 go-pugleaf

Gang--

Here's an AppleScript that creates a font sampler:



--FontSampler 
--This script creates a font sampler from all of the fonts currently available to InDesign. 
--Note: Turn off the Show List of Problem Tags Before Place option in the Tagged Text Import Options 
--dialog box before you run this script. 
set myFile to choose file name with prompt "Save tagged text file as:" 
set myFamilyNames to {} 
set myStyleNames to {}

tell application "InDesign 2.0.2" 
	set myFamilyNames to family of fonts 
	set myStyleNames to style of fonts 
end tell

repeat with myCounter from 1 to (count myFamilyNames) 
	if myCounter = 1 then 
		my write_to_file("<ASCII-MAC>" & return, myFile, false) 
		my write_to_file("<Version:2.000000><FeatureSet:InDesign-Roman><ColorTable:=<Black:COLOR:CMYK:Process:0.000000,0.000000,0.000000,1.000000>>" & return, myFile, true) 
	else 
		set myString to "<ParaStyle:>Font Family: " & item myCounter of myFamilyNames 
		set myString to myString & " Font Style: " & item myCounter of myStyleNames & return 
		set myString to myString & "<ParaStyle:><cFont:" & item myCounter of myFamilyNames & ">" 
		set myString to myString & "<cTypeface:" & item myCounter of myStyleNames & ">" 
		--Your example string goes here (for more example strings, use google to search for "pangram"): 
		set myString to myString & "Sphinx of black quartz, judge my vow!" & return 
		my write_to_file(myString, myFile, true) 
	end if 
end repeat

set myFileName to (myFile as string)

tell application "InDesign 2.0.2" 
	set myDocument to make document 
	tell page 1 of myDocument 
		set myX to margin left of margin preferences 
		set myY to margin top of margin preferences 
		place myFileName place point {myX, myY} with autoflowing 
	end tell 
end tell

--Write to file routine from Apple's AppleScript Guidebook module "Essential subroutines."  
on write_to_file(this_data, target_file, append_data) 
	try 
		set the target_file to the target_file as text 
		set the open_target_file to � 
			open for access file target_file with write permission 
		if append_data is false then � 
			set eof of the open_target_file to 0 
		write (this_data as international text) to the open_target_file starting at eof 
		close access the open_target_file 
		return true 
	on error 
		try 
			close access file target_file 
		end try 
		return false 
	end try 
end write_to_file 




Thanks,

Ole