Dear All,
Below code is running for Quark 6.5 with MAC OSX. Now I want to convert this code for QuarkXPress 4.1 with MAC OS Classic.
Please do some needful.
[code]tell application “QuarkXPressâ„¢ 4.11”
activate
tell document 1
set Doc_Name to name
set Missing_Fonts to {}
set Font_List to font list
repeat with This_Font in Font_List
if ID of This_Font as number < 0 then
set end of Missing_Fonts to name of This_Font & return
end if
end repeat
set File_Path to file path – as text
set File_Path to File_Path as string
display dialog File_Path
set ASTID to AppleScript’s text item delimiters
set AppleScript’s text item delimiters to “:”
set Parent_Path to (text items 1 thru -2 of File_Path) & “:”
set Parent_Path to Parent_Path as string
set AppleScript’s text item delimiters to ASTID
if Missing_Fonts is not {} then
set Missing_Fonts to Missing_Fonts as string
else
set Missing_Fonts to “No missing Fonts.”
end if
my write_Report(Doc_Name, Missing_Fonts, Parent_Path)
end tell
end tell
on write_Report(Doc_Name, Missing_Fonts, Parent_Path)
set The_Report to Parent_Path & Doc_Name & ““Missing Fonts.txt”
try
open for access file the The_Report with write permission
write Missing_Fonts to file the The_Report starting at eof
close access file the The_Report
on error
close access file the The_Report
end try
end write_Report[/code]
Thanks