Apple Script to resize PDF pages with Illustrator

resize-pdf-pages.applescript

repeat with i from 1 to 65
	delay 1.5
	log i
	tell application "Adobe Illustrator"
		ignoring application responses
			open "/Path/to/pdf"
		end ignoring
		activate
	end tell
	
	
	tell application "System Events"
		tell process "Adobe Illustrator CS5"
			set frontmost to true
			delay 1
			tell window 1
				keystroke "	"
				keystroke (i as text)
				keystroke "
"
			end tell
		end tell
	end tell
	
	tell application "Adobe Illustrator"
		activate
		delay 0.5
		tell first document
			set width of group item 1 to 393.48
			set rect to artboard rectangle of artboard 1
			set the third item of rect to 393.48
			set artboard rectangle of artboard 1 to rect
			ignoring application responses
				close
			end ignoring
		end tell
	end tell
	
	tell application "System Events"
		tell process "Adobe Illustrator CS5"
			set frontmost to true
			tell window 1
				delay 1
				keystroke "
"
			end tell
		end tell
	end tell
end repeat