Changing Quark style sheets
Changing Quark style sheets
- Subject: Changing Quark style sheets
- From: "Dr Digby L. James" <email@hidden>
- Date: Sun, 12 Dec 2004 18:09:40 +0000
Title: Changing Quark style sheets
I'm trying to change the fonts of Quark style
sheets. If I want to change them all to Bembo it works fine. But I
want some to go to Bembo and some to Bembo SC.
The following doesn't work. Where am I going
wrong?
tell application "QuarkXPress"
activate
tell front
document
set
stylelist to (get name of every style spec)
repeat with ListVar from 1 to length of stylelist
if
font of item ListVar of stylelist is "New Baskerville" then
set character attributes of style spec stylelist to
{font:"Bembo"}
if
font of character attributes of style spec stylelist is
"NewBaskerville SC" then set character attributes of style
spec stylelist to {font:"Bembo SC"}
end
repeat
end tell
end tell
--
_________________
Dr Digby L. James
Quinta Press
http://www.quintapress.com
Meadow View
Weston Rhyn
Oswestry
Shropshire
England
SY10 7RN
Phone (44)(0)1691 778659
Mobile (44) (0)7970 678144
Fax (44)(0)1691 777638
_________________
_______________________________________________
Do not post admin requests to the list. They will be ignored.
Applescript-users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
This email sent to email@hidden