Re: Quark text boxes
Re: Quark text boxes
- Subject: Re: Quark text boxes
- From: Hans Haesler <email@hidden>
- Date: Wed, 18 Jul 2001 23:37:40 +0200
On Wed, 18 Jul 2001, Mark Bjaergager wrote:
>
I am trying to make a script that will find all text boxes (if any) in a
>
Quark document where the font is missing and/or replaced by QXP.
Mark,
I don't know what you mean with 'replaced' but here is an idea
for *marking* any box containing any character in a missing font:
---
tell document 1 of application "QuarkXPress 4.11"
activate
repeat with i from 1 to count of text boxes
tell text box i
repeat with j from 1 to count of text style ranges
tell text style range j
if font = "" then
my markBox(i)
exit repeat
end if
end tell
end repeat
end tell
end repeat
end tell
on markBox(i)
tell document 1 of application "QuarkXPress 4.11"
set properties of text box i to {color:"Magenta", shade:40}
end tell
end markBox
---
Maybe you'll want to replace the applying of the color by collecting
the object references of the boxes.
Regards,
Hans
---
Hans Haesler | email@hidden