Creating and/or editing a TextEdit document invisibly

Question

I have a script in which the text of a result is set to a new TextEdit document, but that text needs editing prior to displaying the document. As in the following example, I can do the editing invisibly, but creating the initial new document results in the new (blank) TextEdit window flashing on the screen briefly. Anybody think of a different (or modified) approach where that won't happen?
tell application "TextEdit"
activate
--tell application "Finder" to set visible of process "TextEdit" to false
--(Doesn't work because command precedes new document
make new document
tell application "Finder" to set visible of process "TextEdit" to false
(*This works EXCEPT new document flashes on screen briefly before visible command is invoked. Same behavior using System Events. This is a small issue, but I'd like it to not happen.*)
set text of front document to ¬
"A Aphids in the Asparagus
B Bees in your bonnet
C Cats in the concatanation"
tell the text of the front document
set every character where it is "C" to "D"
delay 2 --delay added to evaluate behavior
set every word where it is "dats" to "dog"
delay 2 --delay added to evaluate behavior
set the color of every character where it is "a" to {54563, 5274, 8493}
tell application "Finder" to set visible of process "TextEdit" to true
end tell
delay 2
display dialog "Close Window Without Saving?" buttons {"okay"}
if button returned of result = "okay" then ¬
close front document saving no
end tell
2.7G5 AND OTHERS   Mac OS X (10.4.5)  

Answer 1

You do not have to use TextEdit to make changes, you make all the editing with AS, then you set text of front document of TextEdit:
on run
set AppleScript's text item delimiters to {""}
set result_text to ¬
"A Aphids in the Asparagus
B Bees in your bonnet
C Cats in the concatanation"
set result_text to my replace(result_text, "C", "D")
set AppleScript's text item delimiters to {""}
set result_text to my replace(result_text, "Dats", "Dog")
set AppleScript's text item delimiters to {""}
tell application "TextEdit"
activate
make new document
set text of front document to result_text
tell the text of the front document
set the color of every character where it is "a" to {54563, 5274, 8493}
end tell
delay 2
display dialog "Close Window Without Saving?" buttons {"okay"}
if button returned of result = "okay" then ¬
close front document saving no
end tell
end run
on replace(_string, _find, _replace)
set AppleScript's text item delimiters to {_find}
set _temp to text items of _string
set AppleScript's text item delimiters to {_replace}
return _temp as string
end replace