Appleworks text script question

I'm trying to delete multiple paragraphs in Appleworks. The following script
works, but seems a bit kludgy. I'd like to use a whose statement that
checked for every occurrence of two consecutive paragraphs. But

every character whose it contains return & return

doesn't work. Neither does paragraph. What am I missing?

Thanks in advance,
Nate Olson
<nolson66.RemoveThis@comcast.net>




tell application "AppleWorks"
set returnChar to (ASCII character 13)
tell text body of front document
try
set allReturns to offset of (every character whose it
contains returnChar)
if class of allReturns is not list then set allReturns to {}
repeat with i from (count of items of allReturns) to 2 by -1
set thisReturn to (item i of allReturns)
set prevReturn to (item (i - 1) of allReturns)
if (thisReturn - prevReturn) = 1 then ¬
delete (character (item i of allReturns))
end repeat
end try
end tell
end tell

In article <BCCDA796.12470%nolson66@comcast.net>,
Nathan Olson <nolson66.DeleteThis@comcast.net> wrote:

 > I'm trying to delete multiple paragraphs in Appleworks. The following script
 > works, but seems a bit kludgy. I'd like to use a whose statement that
 > checked for every occurrence of two consecutive paragraphs. But
 >
 > every character whose it contains return & return
 >
 > doesn't work. Neither does paragraph. What am I missing?

By "delete multiple paragraphs," do you mean that you want to make all
the paragraphs into one paragraph? If that's the case, this should do
it for you:

tell application "AppleWorks 6"
tell text body of front document
set temp to paragraph 1
repeat with loop from 2 to count of paragraphs
set temp to temp & paragraph loop of paragraphs
end repeat
end tell
end tell

A paragraph is a block of text beginning with the start of the file or
the first character after a carriage return, and ending with a carriage
return or the end of the file.

I don't understand what you mean by "two consecutive paragraphs."

--
Stop Mad Cowboy Disease: Vote for John Kerry.<!-- ~MESSAGE_AFTER~ -->