Quark: short & sweet script: delete to end
Quark: short & sweet script: delete to end
- Subject: Quark: short & sweet script: delete to end
- From: Michael Turner <email@hidden>
- Date: Wed, 21 Mar 2001 09:33:14 -0500
Hello everyone,
I wish I had written this script about 8 years ago. It deletes from the
current cursor position to the end of the current story. Very useful to
speed working with large documents.
tell application "QuarkXPress 4.11"
activate
tell document 1
set tool mode to contents mode
set OffSetStart to (offset of selection)
set OffSetEnd to (offset of last character of text of story 1 of current
box)
if (not (OffSetStart > OffSetEnd)) then
set selection to text from character (OffSetStart + 1) to character
(OffSetEnd + 1) of story 1 of current box
cut
else
display dialog ("You don't have any text after the cursor to delete.")
end if
end tell
end tell
/Michael