Set wApp = CreateObject("Word.Application")
wApp.Application.Visible = False
wApp.DisplayAlerts = 0
Set wDoc = wApp.Documents.Open(Server.MapPath("Путь к файлу"))
Set wSel = wApp.Selection

' Поиск и замена
With wSel.Find
 .ClearFormatting
 .MatchWholeWord = True
 .Forward. = True
 .MatchCase = False
 .ReplaceWith = "Текст которым мы заменяем то что нашли"
 .Execute("Текст который ищем")
End With

Dim wApp, wDoc, wSel, FSO, Stream

Set wApp = CreateObject("Word.Application")
wApp.Application.Visible = False
wApp.DisplayAlerts = 0

Set wDoc = wApp.Documents.Open(Server.MapPath("относительный путь к файлу"),,False,,,,,,,,,True)
Set wSel = wApp.Selection

' Алгоритм поиска и замены
wSel.Find.ClearFormatting
wSel.Find.Replacement.ClearFormatting
With wSel.Find
 .Replacement.Text = "Текст на который заменяем"
 .MatchWholeWord = True
 .Text = "Текст который ищем"
 .Wrap = wdFindContinue
 .Format = False
 .MatchCase = False
 .MatchWildcards = False
 .MatchSoundsLike = False
 .Execute ,,,,,,,,,,wdReplaceAll
End With

' Сохранение и закачка документа с сервера
Set FSO = CreateObject("Scripting.FileSystemObject")

If FSO.FileExists("путь до файла") Then FSO.DeleteFile(путь до файла)
wDoc.SaveAs "путь до файла", 0

Set FSO = Nothing

wDoc.Close False
wApp.Quit

Set Stream = CreateObject("ADODB.Stream")

Stream.Type = 1
Stream.Open
Stream.LoadFromFile "путь до файла"
Response.ContentType = "Application/VND.MS-Word"
Response.AddHeader "Content-Disposition", "attachment; filename=" & "имя файла без пути например 111.doc"
Response.BinaryWrite Stream.Read
Response.Flush
Response.End

Stream.Close
Set Stream = Nothing