Keynote and Apple Script

Question

I need a script, runnable on a Mac acting as a server, that can do the following without human interaction.
1. Open a keynote file - we can open keynote file manually
Automative should finish following tasks ..
2. From the "Share" menu within KeyNote, select "Export..."
3. Choose "Images", keep the format as 'Jpeg' and the quality at 66%, click "Next..."
4. Create a "New Folder" (may be we can create similar file name like 1.key ----> folder name 1/but this should be done by automatic )
5. Click "Export"
6. close keynote
I need this to be able to run from the command line somehow. I'm not sure the best way to do this: applescript? or work flow ?
thanks fin advance

Answer 1

The following script seems to work flawlessly under Mac OS X 10.6.5 with version 5.0.4 (633) of Keynote ’09, using the +default preferences+ of the application.
Since the script uses [GUI Scripting|http://www.macosxautomation.com/applescript/uiscripting/index.html], you should first enable the Accessibility Frameworks by clicking the checkbox labeled "Enable access for assistive devices" in the Universal Access System Preference pane.
To run the script from the command line, just type something like the following in the Terminal window:
*~ username$ osascript /Users/username/Desktop/Keynote\ script.scpt*
if the compiled script, for instance, is named "Keynote script.scpt" and located on the Desktop.
(You migh need to adjust the delays if necessary.)
--Change the following two lines to fit your needs:
*set theKeynoteFile to POSIX file "/Users/pierre/Desktop/My Keynote Slideshow.key" as alias*
*set theDestinationFolder to POSIX file "/Users/pierre/Pictures/" as alias*
--Create a new folder (temporarily located on the desktop) where to export the slides:
*tell application "Finder"*
*   set theFolderName to text 1 through -5 of (get the name of theKeynoteFile)*
*   make new folder at desktop with properties {name:theFolderName}*
*   set theExportFolder to result as alias*
*end tell*
*tell application "Keynote"*
   activate
*   set theSlideshow to open theKeynoteFile*
*   repeat until theSlideshow exists*
*      delay 1*
*   end repeat*
*   delay 1*
*   if playing then*
*      stop slideshow*
*      delay 1*
*   end if*
*   tell application "System Events"*
*      tell process "Keynote"*
*         click menu item "Export…" of menu 1 of menu bar item "Share" of menu bar 1*
*         delay 0.25*
*         tell sheet 1 of window (displayed name of theKeynoteFile)*
*            click button "Images" of tool bar 1*
*            delay 0.25*
*            click pop up button 1*
*            click menu item "JPEG (variable quality)" of menu 1 of pop up button 1*
*            delay 0.25*
*            set value of text field "Quality:" of group 1 to "66%"*
*            keystroke tab*
*            delay 0.25*
*            keystroke return* -- click button "Next…"
*            delay 0.25*
*            if value of checkbox 1 is 0 then click checkbox 1*
*            delay 0.25*
*            click radio button 2 of radio group 1 of group 1*
*            keystroke "d" using command down* -- desktop
*            tell outline 1 of scroll area 2 of splitter group 1 of group 1*
*               select row 1 whose value of static text 1 is theFolderName*
*            end tell*
*            keystroke return* -- click button "Export"
*         end tell*
*         delay 1*
*         click button "Export" of sheet 1 of window 1*
*      end tell*
*   end tell*
   quit
*end tell*
*tell application "Finder" to move theExportFolder to theDestinationFolder with replacing*
Please let me know if the script doesn't work as expected.