Batch convert Keynote files to PDF with automator

Question

Level 1

21 points

Batch convert Keynote files to PDF with automator

Hi. I've a lot of Keynote files I need to reduce file size and convert to PDF. I understand using Automator's workflow would be great.

My idea is create a "hot folder", in which I'd drop a copy of every keynote file and Automator would reduce their sizes and generate a PDF file. But it didn't work the way I thought.

I've tried to record the workflow. No way, something happens (maybe those issue warnings about fonts and converting from Keynote 09) and stops the flow.

I've tried to drag from actions column, and mix with recorded actions. No way either.

Anybody has an idea how to do that? Should I use those AppleScript coding, which I have no idea how to use? 🙂

Thanks for any help.

MacBook Pro (13-inch Early 2011), OS X Yosemite (10.10)

Posted on May 14, 2015 4:20 PM

Reply

Answer 1

AleMello Author

Level 1

21 points

May 14, 2015 4:49 PM in response to AleMello

Here is the workflow I recorded:

-- Bring the window “Warnings ” to the front.

set uiScript to "click window 1 of application process \"Keynote\""

my do( uiScript)

-- Press ⌘W

set uiScript to "keystroke \"w\" using command down"

my do( uiScript)

-- Click the “File” menu.

set uiScript to "click menu bar item \"File\" of menu bar 1 of application process \"Keynote\""

my do( uiScript)

-- Reduce File Size

set uiScript to "click menu item \"Reduce File Size\" of menu 1 of menu item \"Advanced\" of menu 1 of menu bar item \"File\" of menu bar 1 of application process \"Keynote\""

my do( uiScript)

-- Click the “Reduce” button.

set uiScript to "click UI Element \"Reduce\" of sheet 1 of window 1"

my do( uiScript)

-- Click the “Upgrade” button.

set uiScript to "click UI Element \"Upgrade\" of sheet 1 of window 1"

my do( uiScript)

-- Click the “File” menu.

set uiScript to "click menu bar item \"File\" of menu bar 1 of application process \"Keynote\""

my do( uiScript)

-- PDF…

set uiScript to "click menu item 1 of menu 1 of menu item \"Export To\" of menu 1 of menu bar item \"File\" of menu bar 1 of application process \"Keynote\""

my do( uiScript)

-- Click the “Next…” button.

set uiScript to "click UI Element 13 of sheet 1 of window 1"

my do( uiScript)

--

set uiScript to "click image 1 of UI Element 1 of row 2 of outline 1 of scroll area 1 of splitter group 1 of splitter group 1 of group 1 of sheet 1 of window 1 of application process \"Keynote\""

my do( uiScript)

--

set uiScript to "click UI Element 1 of row 2 of outline 1 of scroll area 1 of splitter group 1 of splitter group 1 of group 1 of sheet 1 of window 1 of application process \"Keynote\""

my do( uiScript )

-- Click the “Export” button.

set uiScript to "click UI Element \"Export\" of sheet 1 of window 1 of application process \"Keynote\""

my do( uiScript )

-- Press ⌘S

set uiScript to "keystroke \"s\" using command down"

my do( uiScript )

-- Press ⌘W

set uiScript to "keystroke \"w\" using command down"

my do( uiScript )

end do

Reply