基調講演へのパワーポイントプレゼンテーションの一括変換のためのAppleScriptまたはAutomatorワークフロー

多数のPowerpointプレゼンテーションがあり、Keynoteに変換したいと思います。次の手順に従って、それぞれを手動で変換できます。

1. Finderで、Powerpointドキュメントを右クリックし、[アプリケーションから開く...]-> [基調講演 ]を選択します。
2. Keynoteで[ 名前を付けて保存... ]を選択し、[ コピーを名前を付けて保存]チェックボックスをオンにし、形式としてiWork '08を選択し、[ OK ]をクリックします。

ただし、ドキュメントごとにこれを行うのは面倒です。一度に変換する方法が欲しいです。

私はこのためにAutomatorワークフローを作成しようとしましたが、完全に失敗しました。（プログラマーになると、実際にはAutomatorやAppleScriptなどの私たちの残りのツールを理解することが不可能になると思います。）誰か助けてくれますか？

Automatorでそれを実現する方法を理解できませんでしたが、AppleScriptを打ち負かすことができました。AppleScript Editorで以下をアプリケーションとして保存し、変換するファイルをアイコンにドラッグします。変換されたファイルを配置するフォルダーを選択するように求められます。

on open droppedFiles
    set theDestinationFolder to (choose folder with prompt "Choose destination folder") as Unicode text
    repeat with theFile in droppedFiles
        tell application "Keynote"
            open theFile
            set theSlideshow to slideshow 1
            set theDestinationPath to theDestinationFolder & (name of theSlideshow)
            save theSlideshow in theDestinationPath
            close theSlideshow
        end tell
    end repeat
end open

（私はAppleScriptで何をしているのか本当に分かりません。ここで改善できることがあれば、それについて知りたいです。）

Watch Me Do機能を使用してAutomatorワークフローを作成しようとしましたか？どのような問題に遭遇しましたか？