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 уже нет. Ошибок не выдает, но и замены не производит.
Может кто чего подскажет.
Лариса
