Need Pages script- Find CR CR and delete the second CR

Using Pages’ Search and Replace to replace “Return Return” (two consecutive CR’s) with a single Return causes style loss on the preceding paragraph. Can someone provide or point me to a script that will work?

In plain language: “When two consecutive RETURNS are found delete the second leaving the first untouched.”

This is for an ePub project… thank you very much for your help!

Something like this?

tell application "Pages"
	delete (paragraphs of front document whose length is 1)
end tell

Perfect! Thanks so much! Exactly what I need!