02)すべてのドキュメントをPDF書き出し

tell application "Adobe InDesign CS2_J"
	set Dcount to count document
	repeat with N from 1 to Dcount
		set myName to name of document N as string
		set myPath to (file path of document N) as string
		set myPDFpreset to PDF export preset "[PDF/X-1a]"
		set newFile to myPath & myName & ".pdf"
		export document N format PDF type to newFile using myPDFpreset
	end repeat
end tell