如何在批量文档的末尾添加分页符？

Question

我有几百个简短的文档（大部分是一页），我想将它们合并成一个大文档。 尽管Word在上一个文档之后直接添加了下一个文档，但没有分页符，但我设法使合并动作无效（使用Automator）。

广泛搜索之后，似乎最好的选择是打开每个文档，在末尾添加一个分页符，然后保存。

是否可以同时对多个文档执行此操作？使用Automator还是AppleScript？

Answer 1

这在AppleScript中应该可以在文档末尾插入分页符。抱歉，我没有Word可以对其进行测试。

tell application "Microsoft Word" insert break at (after last character of active document) end tell

编辑：添加了2018-12-23

tell application "Finder" to set allFiles to every file of (choose folder)

set outputFile to (choose folder) & "output.docx" -- or whatever 

tell application "Microsoft Word"
    activate 
    make new document 

    repeat with i from (count allFiles) to 1 by -1 
        display dialog (item i of allFiles as text)

        insert file at text object of selection file name (item i of allFiles as text)

        if i > 1 then 
            insert break at (after last character of active document) 
        end if 
    end repeat 

    save as active document file name outputFile
end tell

它可能需要一些调试，但这或多或少是如何工作的。如果您不太熟练使用AppleScript并需要帮助调试，请告诉我们。