Проблема с VBScrept и Word

[larisaM]

Есть простенький скрипт
set wrd = CreateObject("Word.Application")
set MyDoc = wrd.Documents.Open("my.doc")

set R = MyDoc.Range

R.Find.Execute "5",,,,,,true,wdFindContinue,,"8",wdReplaceAll
wrd.Visible = True
msgbox "1"
wrd.Quit
set wrd = Nothing

Не работает
Из Word работает, а из Exel уже нет. Ошибок не выдает, но и замены не производит.
Может кто чего подскажет.

Лариса

[Leon_]

Попробуй использовать Replace вместо Find

[larisaM]

Ежели кому интересно.
Что бы заработало поменяйте dwReplaceAll на цифру и все заработает