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.