导出PDF版本时，如何使Pages默认为打开文件的文件夹？

我会定期在Pages中创建文档，然后使用File→Export将它们转换为PDF 。我总是将PDF版本与原始文档保存在同一文件夹中。

打开的此保存对话框似乎总是记住我保存到的最新位置。但是，对我来说，如果只是假设我想保存到与原始文件相同的目录下，它会更加有用。

如何使Pages做到这一点？

有一个很棒的应用程序叫做“ 默认文件夹X”，但它并不便宜-约35美元。它启用了许多功能，可在任何应用程序的“打开/保存”对话框中使用。

在自由方面，您可以尝试以下技巧：在“导出”对话框窗口中时，实际上可以将文件从Finder 拖到 “导出”窗口中，它将自动更改为该文件夹。这至少使您不必在对话框窗口中四处浏览，因为您可能已经在Finder中打开了原始文档文件夹的窗口。

最后，以防万一，在大多数“打开/保存/导出”对话框窗口顶部的小弹出窗口在底部列出了您最近5个“最近的位置”。因此，如果您使用“打开...”打开文件，则该文件夹可能会出现在此列表中。

例如：

我使用两种解决方法：

1. 在每个项目之前，我都使用Finder在侧边栏中为我正在处理的文件夹创建快捷方式。不管我使用什么应用程序，这都能在所有对话框中更快地找到它。

2. 在Pages中，您可以展开对话框，并且有一个搜索栏–搜索文件夹的名称，双击它进行选择，然后导出/保存。

信不信由你，这个缺陷是我日常工作中浪费时间最多的＃1。为了使默认导出文件夹与源文件位于同一文件夹，我最终制作了AppleScripts并将其嵌入到使用Automator的服务中。我是针对Pages中的pdf和Word导出，Numbers中的pdf和Excel以及Keynote中的pdf，PowerPoint和png这样做的。

附加以下代码-对于每种代码，您都需要在Automator中创建一个新的“快速操作”（服务），添加一个“运行AppleScript”步骤，将其设置为不接收任何输入，并将其设置为在特定应用程序中可用于剧本。您需要将每个服务保存为不同的名称（例如，“页面导出为pdf”，“主题导出为PowerPoint”等），因为即使特定于某个应用程序的服务都是全局的。作为可选的最后一步，我在每个应用程序中为它们分配了键盘快捷键（系统偏好设置→键盘→...）。请注意，如果这样做，您可能需要在应用程序级别而不是服务级别分配快捷方式，因为服务快捷方式显然无法复制。

免责声明我对Applescript并不完全满意，因此它们可能并不完美-但它们似乎对我来说足够好。

默认文件夹X看起来很不错，但是它不仅可以解决此缺陷，还有些过大。而且，如果您不想要其余的功能，则不能禁用它，但仍然可以解决此问题。

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