Minor Problem When Scripting MS Word

Question

I think I'm just overlooking something obvious, but I have an AppleScript that works flawlessly--the FIRST time it's run on a file opened in Word--but the only way to run it again with another file is to quit Word and THEN open another file and run it. Otherwise I get the error message "Microsoft Word got an error: find id 365340008 of selection doesn’t understand the execute find message."
I've tried inserting "clear formatting" in several places, but it doesn't seem to cure it. Any advice would be much appreciated. Here's the script (it's basically a find/replace routine for typesetting):
tell application "Microsoft Word"
set view type of view of active window to normal view
set pagination to false
type text selection text "<ASCII-MAC>"
type paragraph selection
set wrap to find continue
set match wildcards to false
set findRange to find object of selection
tell findRange
execute find find text "<@$>" replace with "<cstyle:>" replace replace all
execute find find text "•" replace with "<0x2022>" replace replace all
execute find find text "©" replace with "<0x00A9>" replace replace all
execute find find text "°" replace with "<0x00B0>" replace replace all
execute find find text "…" replace with "<0x2026>" replace replace all
execute find find text "¶" replace with "<0x00B6>" replace replace all
execute find find text "®" replace with "<0x00AE>" replace replace all
execute find find text "™" replace with "<0x2122>" replace replace all
execute find find text "§" replace with "<0x00A7>" replace replace all
execute find find text "–" replace with "<0x2013>" replace replace all
execute find find text "—" replace with "<0x2014>" replace replace all
execute find find text "“" replace with "<0x201C>" replace replace all
execute find find text "”" replace with "<0x201D>" replace replace all
execute find find text "‘" replace with "<0x2018>" replace replace all
execute find find text "’" replace with "<0x2019>" replace replace all
end tell
tell findRange
set match wildcards to true
execute find find text "<@(*)>" replace with "<cstyle:\1>" replace replace all
execute find find text "@(*):" replace with "<pstyle:\1>" replace replace all
end tell
end tell
(I had to eliminate some back slashes from the last two find/replace lines so it would appear correctly here, but the original has them in there as escape characters.)

Answer 1

Hi,
These lines set wrap to find continue
set match wildcards to false
should be in the "*tell findRange*" block.
tell findRange
set wrap to find continue
set match wildcards to false
execute find find text "<@$>" replace with "<cstyle:>" replace replace all