Exporting Keynote 3 as PDF
Published 2007-10-03 @ 02:06
Tagged toys
NOTE: This version runs on Keynote 3, bundled with iWork ‘08. If you have Keynote 2, you want my older version.
on run
display dialog "Drag keynote documents on me to convert to PDF."
end run
on open draggeditems
repeat with thisFile in draggeditems as list
tell application "Finder" to reveal item thisFile
set thisFile to thisFile as alias
tell application "Keynote" to open thisFile
tell application "System Events"
tell application process "Keynote"
set frontmost to true
if menu item "Hide Inspector" of menu 1 of menu bar item "View" of menu bar 1 exists then
keystroke "i" using {command down, option down}
end if
click menu item "Export…" of menu 1 of menu bar item "File" of menu bar 1
repeat until sheet 1 of window 1 exists
end repeat
tell sheet 1 of window 1
click button "PDF" of radio group 2
click checkbox "Include slide numbers"
click checkbox "Include date"
click checkbox "Print each stage of builds"
click button "Next…"
end tell
repeat until button "Export" of sheet 1 of window 1 exists
end repeat
tell sheet 1 of window 1
click button "Export"
end tell
delay 3
keystroke "w" using command down
end tell
end tell
end repeat
end open