How do I set the font color when inserting text in Word?

Scripting Forums AppleScript | Mac OS X
#1

I’ve searched and searched and can’t find an answer to what I assume is a simple question. I am new to this.
I wrote a simple script (adapted from one I found online) a couple of years ago to insert a short piece of text into a Word 2008 doc.

tell application "Microsoft Word"
	tell selection
		set newPoint to (selection start + 8)
		set myString to "[bullet]"
		set content of text object to myString
		set selection start to newPoint
	end tell
end tell

Works fine, but now I need to specify other things about the text. I want it to be blue, and it would be useful to be able to control other aspects too. I tried this but it had no effect.

tell application "Microsoft Word"
	tell selection
		set newPoint to (selection start + 8)
		set myString to "[bullet]"
		set content of text object to myString
		set content of font object to myString
		set name of font object of myString to "Helvetica"
		set font size of font object of myString to 12
		set bold of font object of myString to false
		set italic of font object of myString to false
		set color index of font object of myString to blue
		set selection start to newPoint
	end tell
end tell

Obviously I don’t really know what I’m doing. Can anyone help?

#2 

tell application "Microsoft Word"
	tell selection
		set newPoint to (selection start + 8)
		set myString to "[bullet]"
		set content of text object to myString
		set myWord to word 1
		tell myWord
			set myFO to font object
			tell myFO
				set name to "Helvetica"
				set font size to 12
				set bold to false
				set italic to false
				set color index to blue
			end tell
		end tell
		set selection start to newPoint
	end tell
end tell