applescript to bulk convert Pages files to PDF

 Not my script, but it works:

paste this into Script Editor, and choose save as app:

use scripting additions


property valid_kind : {"Pages Document"}

property imageBest : false

property fileCnt : (0 as integer)

-- property dx_icon : "/System/Library/CoreServices/CoreTypes.bundle/Contents/Resources/MultipleItemsIcon.icns"


on open dropped_items

tell application "Pages" to set itsversion to its version

considering numeric strings

if itsversion > "5.6" then set imageBest to true

end considering

repeat with anItem in dropped_items

try

tell application "Finder"

if kind of anItem is equal to "Folder" then

set docList to (every item in entire contents of folder anItem ¬

whose kind is in valid_kind) as alias list

repeat with afile in docList

my export_file(afile)

end repeat

else if kind of anItem is in valid_kind then

my export_file(anItem)

else

log "ignored" -- think of this as a continue statement

end if

end tell

on error errmsg number errnbr

my error_handler(errnbr, errmsg)

quit

end try

end repeat

if fileCnt > 0 then

-- display dialog "Export Complete." & return & tab & " Files exported to PDF " & " :  " & (fileCnt as text) ¬

-- buttons {"Done"} default button "Done" with title "Pages Export Facility" -- with icon POSIX file dx_icon as alias

else

display dialog "Export completed without any files processed." & return & "Only Pages (.pages) documents are exported to PDF." buttons {"Done"} default button "Done" with title "Pages Export Facility" -- with icon POSIX file dx_icon

end if

quit

end open


on export_file(afile)

-- switch pages extension to pdf

set thisFile to afile as alias as text

set exportPDF to (text 1 thru ((offset of ".pages" in thisFile) - 1) of thisFile as text) & ".pdf"

close access (open for access exportPDF)

tell application "Pages"

try

set myDoc to open afile

with timeout of 1800 seconds

if imageBest then

export myDoc to file exportPDF as PDF with properties {image quality:Best}

else

export myDoc to file exportPDF as PDF

end if

end timeout

set fileCnt to (fileCnt + 1) as integer

close myDoc saving no

on error errmsg number errnbr

my error_handler(errnbr, errmsg)

quit

end try

end tell

-- an interactive Export To PDF in Pages makes the PDF extension visible

-- but this script needs to be coerced to do that.

tell application "Finder"

if exists (item exportPDF as alias) then

set extension hidden of (item exportPDF as alias) to false

end if

end tell

return

end export_file


on error_handler(nbr, msg)

return display alert "[ " & nbr & " ] " & msg as critical giving up after 10

end error_handler


on quit {}

-- perform these cleanup items, and then really quit

tell application "Pages" to if it is running then quit

set fileCnt to (0 as integer)

continue quit

end quit

Popular posts from this blog

The most useful defaults-write options

The following are really useful options to set system-wide for Mac OS X. I'd suggest reading them to guess what they do. You should be able to safely run all of them except the first one which tells spotlight (the search function) to ignore any attached drives forever. If you find that drives take a long time to unmount (eject), then usually it is because spotlight is indexing them (reading them in their entirety) to see what they contain. Hence if you find a disk doesn't want to eject, turn off spotlight for that drive. sudo defaults write /.Spotlight-V100/VolumeConfiguration Exclusions -array "/Volumes" defaults write com.apple.dock springboard-columns -int X defaults write com.apple.dock springboard-columns -int 10 defaults write com.apple.dock springboard-rows -int 7 defaults write com.apple.dock springboard-rows -int 5 defaults write com.apple.dock springboard-rows -int 5 springboard-columns -int 10 defaults write com.apple.dock springboard-rows -int X defaults w...
Read more

Erasing firmware password

Image
On some occasions, like myself, you may be forgetful, and forget what you set your bootup ("firmware") password to. Unfortunately for you, if you boot in recovery mode using Command-R, it still wants you to remember your original password to erase the old one.  The proper way to do this is to take the computer to Apple with proof of purchase and they will do it for you. However, if like me you only buy their much older machines due to their upgradability, you may find that you don't have proof that you bought it in an apple store, e.g. second hand, or you lost the proof years ago. So, how do you reset it? The answer unfortunately, is with great difficulty. This blog page tells you how. Please note that I disclaim responsibility for the below - if you blow up your Macbook it's your fault. Do not follow these instructions. I followed these: https://blog.wzhang.me/2017/10/29/removing-mac-firmware-password-without-going-to-apple.html However, they are not 100% clear on al...
Read more

Migrating from Windows to Mac

If you have decided to migrate from Windows to Mac, you will find that there are a few confusing differences. I note the ones that I can think of, below: 1. There are ALTERNATIVE packages to microsoft office installed, namely Apple Pages, Apple Numbers, and Apple Keynote . These replace Word, Excel and Powerpoint, and if you use them you can use the " save as " command to create a word, excel or powerpoint document. This means you do not need to actually buy MS Office, these work just fine. 2. I recommend AVG antivirus be installed . This is mostly so that if you accidentally go onto a bad website with bad software on it, or a fake website, e.g. a "phishing" site, which is trying to trick you into giving your banking credentials, it will warn you. There are almost no viruses or malware for the machine. HOWEVER , there is ONE piece of malware which pretends to be good software, available, and it calls itself MacKeeper. Do NOT install it. AVG complains a lot on W...
Read more