Is there a way that AS can detect if the “usage box” has come up and then if yes, select “Continue”? You will see in the script below that I have set “remap font no” is already in place, but the dialogue box comes up for missing fonts? Thanks to anyone willing to help on this.
Jim
Here is what we have so far:
display dialog "Select a folder.
The script will work thru that folder and all its subfolders saving all not Quark 6 docs to Quark 6.
"
tell application “Finder”
set chosenFolder to choose folder with prompt “Select folder to work on.” – Pick folder.
my folderprocess(chosenFolder) – Send it to the recursive handler
end tell
on folderprocess(chosenFolder)
tell application “Finder”
try
set myFiles to files of (entire contents of folder chosenFolder) whose file type = “XDOC” or file type = “XTMP” – Get a list of the documents in this folder (in case there are loose ones)
on error
stop
end try
try
if (count of myFiles) ≠0 then – If files are found, Send them to another handler to do something with them
my finderprocess(myFiles)
else
quit
end if
on error
stop
end try
set subFolders to folders of chosenFolder – Get a list of the subfolders of the folder you picked
try
if (count of subFolders) ≠0 then – If folders are found
repeat with thisFolder in subFolders – Start repeating with a new list of subfolders
my folderprocess(thisFolder) – send it back to the beginning of the handler
end repeat
end if
on error
stop
end try
end tell
end folderprocess
on finderprocess(myFiles)
try
repeat with i from 1 to the count of myFiles
set thisFile to item i of myFiles
set thisFilePath to thisFile as string
tell application “QuarkXPress”
set open document preference to keep document settings
open thisFile remap fonts no use doc prefs yes do auto picture import no without reflow
save document 1 in (thisFilePath) version vers 60
close document 1 saving no
end tell
end repeat
on error
exit repeat
end try
end finderprocess