Is there a script that will batch process quark docs into eps files?

Scripting Forums AppleScript | Classic Mac OS
,
#1

Is there a script out there that will batch process quark documents into eps files?

#2

Hi :slight_smile:
Here one suggestion (for QXP 3):

on run
	tell application "QuarkXPress™ 3.32"
		try
			activate
			if (count every document) < 1 then error "No open document..." number 8000
			
			set DosDest to (choose folder with prompt "Choose the destination folder:") as alias
			
			tell document 1
				set NbrPges to count every page
				set NomDoc to name of it
				
				repeat with Bcl from 1 to NbrPges
					set NomNewDoc to my SnipText(NomDoc & " P" & (text -3 thru end of ("00" & Bcl)) & ".eps", 31)
					
					save page Bcl EPS format Mac Color EPS data binary EPS OPI ¬
						include images in ("" & DosDest & NomNewDoc) with include preview
				end repeat
			end tell
			
			display dialog "Successful work  :-)" with icon 1
		on error MsgErr number NroErr
			if NroErr is not -128 then display dialog "" & NroErr & " : " & MsgErr & (beep 2) with icon 0
		end try
	end tell
end run


--SnipText (source <http://wirinum.free.fr/vanilla/SnipText.html>)
on SnipText(Txt, Long)
	if (length of Txt) > Long then ¬
		return (text 1 thru ((Long div 2) - 1) of Txt) ¬
			& "…" & (text -1 thru -((Long div 2) + 1) of Txt)
	return Txt
end SnipText

:wink: