делаю так:
set Wd=CreateObject("Word.Application")
Wd.Application.Visible = true
Wd.Documents.Open "test.doc",False,True
Wd.Selection.Find.ClearFormatting
Wd.Selection.Find.Replacement.ClearFormatting
Wd.ActiveDocument.Content.Find.Execute FindText = "22", ReplaceWith = "123"
Wd.PrintOut
Wd.Quit
просто в VB, все работает нормально, т.е. печатает с исправлением, а вот через веб не заменяет 22 на 123, что не так помогите