–Pages書類からPDF書き出し
on exportPagesDocToPDF(targFolderPath as string)
　　tell application "Pages"
　　　　set dCount to count every document
　　　　if dCount = 0 then
　　　　　　return false
　　　　end if
　　　　set aPath to file of document 1
　　end tell
　　
　　set curPath to (current application’s NSString’s stringWithString:(POSIX path of aPath))’s lastPathComponent()’s stringByDeletingPathExtension()’s stringByAppendingString:".pdf"
　　set outPath to (targFolderPath & curPath)
　　
　　
　　tell application "Pages"
　　　　set anOpt to {class:export options, image quality:Best}
　　　　export document 1 to file outPath as PDF with properties anOpt
　　end tell
end exportPagesDocToPDF

★Click Here to Open This Script