Option Explicit

Const wdReplaceAll = 2
Const wdFormatText = 2

Dim objWord
Dim objDoc

Set objWord = WScript.CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("C:\temp\1.doc")

With objWord
    '.Visible = True
    
    With .Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "1111"
        .Replacement.Text = "2222"
        .MatchCase = 0
        .MatchWholeWord = 0
        .MatchWildcards = 1
        .MatchSoundsLike = 0
        .MatchAllWordForms = 0
        .Forward = 1
        .Wrap = 1
        .Format = 0
        
        ' Replace - 11-й параметр метода .Execute
        ' Все остальные параметры - опциональные, их можно опустить,
        ' коль большинство из них было задано выше.
        ' Хотя можно было задать их и в методе .Execute
        .Execute ,,,,,,,,,,wdReplaceAll
    End With
End With

objDoc.SaveAs "C:\temp\2.txt", wdFormatText
objWord.Quit

Set objWord = Nothing

WScript.Quit 0