Script for Keynote to export slides as individual MOVs
I keep getting the "Expected end of line, etc. but found identifier." using this script:
tell application "Keynote"
set theDoc to the front document
set slideCount to count of slides of theDoc
-- Get the path of the current Keynote presentation
set presentationPath to theDoc's file as string
-- Get the folder containing the presentation file
set presentationFolder to (POSIX path of presentationPath) & ".."
repeat with i from 1 to slideCount
-- Set the name of the output file
set outputName to "Slide " & i & ".mov"
-- Set the path of the output file
set outputPath to presentationFolder & outputName
-- Export the slide as a QuickTime movie to the output path
export theDoc to file outputPath as QuickTime movie using settings {image quality:best, slide duration:5}
end repeat
end tell