Help tweaking applescript in service workflow

Discussion in 'Mac Programming' started by jabberwooky, May 19, 2011.

  1. macrumors newbie

    Joined:
    May 3, 2009
    #1
    Would love any help with this to improve my workflow:

    I found an applescript online that I have used to build a service within automator. It allows me to right click on a .pages document and convert it to pdf. Currently though, the naming of the file isn't working quite as I expected:

    Example.pages
    [right click, run pages2pdf service]
    (output-->) Example.pagesExample.pdf

    Here is the applescript:

    Code:
    on run {input, parameters}
    	
    	-- based on code from http://pagesfaq.blogspot.com/2006/11/i-have-one-thousand-pages-documents-to.html
    	
    	--on open theFiles
    	set outputFiles to {}
    	set theFiles to input
    	
    	tell application "Pages"
    		repeat with aFile in theFiles
    			open aFile
    			set docName to name of front document
    			set docPath to path of front document
    			-- Remove .pages extension.
    			set prevTIDs to AppleScript's text item delimiters
    			set AppleScript's text item delimiters to ".pages"
    			-- Add .doc extension.
    			set docName to first text item of docName
    			set AppleScript's text item delimiters to prevTIDs
    			-- Save file in same folder
    			set docPathAndName to docPath & docName
    			save front document as "SLDocumentTypePDF" in docPathAndName
    			close front document
    			set end of outputFiles to docPathAndName & ".pdf"
    		end repeat
    	end tell
    	--end open
    	
    	
    	return outputFiles
    end run
    Any tips, suggestions, answers?

    (running OS X 10.6.7)
     

Share This Page