Quark-bold uppercase paragraphs
Quark-bold uppercase paragraphs
- Subject: Quark-bold uppercase paragraphs
- From: Jeremy Sellors <email@hidden>
- Date: Sun, 12 Aug 2001 09:06:22 -0700
Well this works in most cases, since I can't figure out how to test if a
paragraph is mostly uppercase.
How do I suspend screen updates as the script runs so that just the finished
text gets updated?
tell application "QuarkXPress 4.11"
activate
tell document 1
tell story 1 of automatic text box
set style of every paragraph to plain
set paraCou to count of paragraphs
try
repeat with i from 1 to paraCou
if ((count of characters of paragraph i) > 1) then
delete paragraph i
end if
end repeat
end try
try
repeat with i from 1 to paraCou
if ((count of characters of paragraph i) > 40) then
set style of paragraph i to "bold"
end if
end repeat
end try
end tell
end tell
end tell
Thanks in advance, __ Jeremy Sellors