Это не идеально, потому что слайды немного смещены от центра, но это работает достаточно хорошо для меня. Просто запустите следующий Applescript:
tell application "Keynote" set theNumberOfSlides to count of slides in slideshow 1 end tell repeat with i from 1 to theNumberOfSlides tell application "Keynote" activate tell application "System Events" to keystroke "c" using end tell tell application "Pages" activate tell application "System Events" to keystroke "v" using end tell tell application "Keynote" activate tell application "System Events" to key code 125 end tell end repeat