Word Find Replace with Wildcards

Hello,
I am having trouble with this handler:


on textblue()
	with timeout of 600 seconds
		tell application "Microsoft Word"
			set selFind to find object of selection
			tell selFind
				
				set content to "(Page )(*^13)"
				
				set content of replacement to "\\1\\2"
				--set color index of font object of replacement to blue
				execute find wrap find find continue ¬
					replace replace all with match forward and match wildcards
			end tell
		end tell
	end timeout
end textblue


The error is on the set content of replacement to “\1\2” (escaping the backslash.
The error states error “Can’t set «class 1650» of «class w125» to "\\1\\2".” number -10006 from «class 1650» of «class w125» to «class \1\2»

The VB equivalent of setting the replacement text is .Replacement.Text = “\1\2” which is Word’s regular expression for the found items.

Finally I’m trying to change the color of the replacement text to blue, but I don’t think “replacement” has a font object, but I’ve no idea what to do instead.

And afer an hour of googling, including this site, I cannot find an example of changing the font color of the replacement text.

Hi Paeon,

Just a quick thought.
If you already have the VBA working could you set up a macro, in Word, and trigger it from AS?
A bit like this… http://macscripter.net/viewtopic.php?id=43846

HTH