PDFバージョンをエクスポートするときに、Pagesを開いたファイルのフォルダーにデフォルトにする方法は？

私は定期的にPagesでドキュメントを作成し、次にFile→Exportを使用してそれらをPDFに変換します。PDFバージョンは常に元のドキュメントと同じフォルダーに保存します。

この開いた保存ダイアログは常に、保存した最新の場所を記憶しているようです。ただし、私にとっては、元のファイルと同じディレクトリに保存することを想定していると、はるかに便利です。

ページにこれを実行させるにはどうすればよいですか？

Default Folder Xと呼ばれる素晴らしいアプリがあります–安くはありません–およそUS $ 35です。これにより、あらゆるアプリの[開く/保存]ダイアログで使用できる多数の機能が有効になります。

自由側では、このトリックを試みることができる：あなたがエクスポートするためのダイアログウィンドウにあるとき、あなたは実際にできますドラッグする Finderからファイルをにエクスポート]ウィンドウ、そして、それは自動的にその同じフォルダに変更されます。これにより、元のドキュメントのフォルダーのウィンドウが既にFinderで開かれている可能性が高いため、少なくともダイアログウィンドウ内を移動する必要がなくなります。

最後に、まだ知らない場合に備えて、ほとんどの[開く/保存/エクスポート]ダイアログウィンドウの上部にある小さなポップアップには、最も最近の5つの場所が下部に表示されます。したがって、「開く...」を使用してファイルを開いた場合、そのフォルダはおそらくこのリストに表示されます。

例えば：

2つの回避策を使用します。

1. 各プロジェクトの前に、Finderを使用して、作業中のフォルダーのサイドバーにショートカットを作成します。これにより、使用しているアプリに関係なく、すべてのダイアログボックス内ですばやく検索できます。

2. ページ内では、ダイアログボックスを展開できます。検索バーがあります。フォルダの名前を検索し、ダブルクリックして選択し、エクスポート/保存します。

信じられないかもしれませんが、この欠陥は、私の日常業務で私にとって最大の時間の浪費です。デフォルトのエクスポートフォルダーをソースファイルと同じフォルダーにするために、AppleScriptを作成し、Automatorを使用してそれらをサービスに埋め込みました。PagesでのpdfおよびWordのエクスポート、NumbersでのpdfおよびExcel、Keynoteでのpdf、PowerPoint、およびpngについて、これを行いました。

以下のコードを添付します-それぞれについて、Automatorで新しい「クイックアクション」（サービス）を作成し、「AppleScriptを実行」ステップを追加し、入力を受け取らないように設定し、特定のアプリで動作するように設定する必要がありますスクリプト。アプリサービスに固有にした場合でもグローバルであるため、各サービスを異なる名前で保存する必要があります（「Pages Export to pdf」、「Keynote Export to PowerPoint」など）。オプションの最後のステップとして、各アプリでキーボードショートカットを割り当てました（[システム環境設定]→[キーボード]→...）。これを行う場合、サービスのショートカットは明らかに複製できないため、サービスレベルではなく、アプリレベルでショートカットを割り当てる必要があることに注意してください。

免責事項私はApplescriptに正確には驚かないので、これらは完璧ではないかもしれませんが、それらは私にとっては十分に機能するようです。

Default Folder Xは素晴らしいソフトウェアのように見えますが、これはこの1つの欠陥を修正するだけではないので、少しやりすぎです。そして、残りの機能が必要ない場合は、それを無効にすることはできませんが、それでもこの問題を解決することができます。

Appleはこれを適切に修正する必要があります。

tell application "Pages"
    set exportFile to file of front document as text
    set exportFile to text 1 thru -6 of exportFile
    set exportFile to exportFile & "pdf"
    export front document to file exportFile as PDF with properties {image quality:Best}
end tell
tell application "Finder"
    activate
    reveal exportFile
end tell


tell application "Pages"
    set exportFile to file of front document as text
    set exportFile to text 1 thru -6 of exportFile
    set exportFile to exportFile & "docx"
    export front document to file exportFile as Microsoft Word
end tell
tell application "Finder"
    activate
    reveal exportFile
end tell


tell application "Numbers"
    set exportFile to file of front document as text
    set exportFile to text 1 thru -8 of exportFile
    set exportFile to exportFile & "pdf"
    export front document to file exportFile as PDF with properties {image quality:Best}
end tell
tell application "Finder"
    activate
    reveal exportFile
end tell


tell application "Numbers"
    set exportFile to file of front document as text
    set exportFile to text 1 thru -8 of exportFile
    set exportFile to exportFile & "xlsx"
    export front document to file exportFile as Microsoft Excel
end tell
tell application "Finder"
    activate
    reveal exportFile
end tell


tell application "Keynote"
    set exportFile to file of front document as text
    set exportFile to text 1 thru -4 of exportFile
    set exportFile to exportFile & "pdf"
    export front document to file exportFile as PDF with properties {PDF image quality:Best}
end tell
tell application "Finder"
    activate
    reveal exportFile
end tell


tell application "Keynote"
    set exportFile to file of front document as text
    set exportFile to text 1 thru -4 of exportFile
    set exportFile to exportFile & "pptx"
    export front document to file exportFile as Microsoft PowerPoint
end tell
tell application "Finder"
    activate
    reveal exportFile
end tell


tell application "Keynote"
    set exportFile to file of front document as text
    set exportFile to text 1 thru -5 of exportFile
    export front document to file exportFile as slide images with properties {image format:PNG}
end tell
tell application "Finder"
    activate
    reveal exportFile
end tell