[Patroklos]

Мне кажется что шансы что тебе помогут сильно возрастут если ты загрузишь на форум эти два файла.
ЗЫ: не забудь заархивировать.

[Touch_]

Прикрепил архив.
Файл по меньше сделал по кол-ву строк.

[Touch_]

Кстати, а как насчёт больших/маленьких букв? »

А что с ними?
Если нужно могу привести их к нижнему регистру.

[Patroklos]

Попытка номер 2

[megaloman]

Patroklos, Спасибо. Открыл во второй попытке ...

[Patroklos]

Был рад помочь.

[megaloman]

Опыта с UTF у меня минимум. Не стреляйте в пианиста ...

Код:

FileTxt = "Z:\Box_Arc\txt_file\1.txt"
FileNum = "Z:\Box_Arc\txt_file\2.txt"
FileOut = "Z:\Box_Arc\txt_file\1.rep.txt"

Delim=Chr(9)

With CreateObject("Scripting.FileSystemObject")
    With .OpenTextFile(FileTxt, 1, False)
        InTxt = .ReadAll
        .Close
    End With
    With .OpenTextFile(FileNum, 1, False)
        MasNum = Split(.ReadAll, vbCrLf)
        .Close
    End With

    For Each Fin In MasNum
        If Len(Fin) <> 0 Then
            i = InStr(1, Fin, Delim)
            If i <> 0 Then
                Rep = Mid(Fin, 1, i - 1)
                Fin = Mid(Fin, i + 1)
                InTxt = Replace(InTxt, Fin, Rep)
            End If
        End If
    Next
    
    With .OpenTextFile(FileOut, 2, True)
        .Write InTxt
        .Close
    End With
End With

MsgBox "Script done"

FileOut может совпадать с FileTxt
Задачу делал для предложенных образцов файлов

[Touch_]

megaloman, благодарю работает.
Попробовал на другом файле замена прошла хорошо, только одну строчку скрипт не заменил.
Но это не принципиально поправил руками.

[megaloman]

Touch_,

только одну строчку скрипт не заменил.

Если это не разовая задача, надо бы разобраться, почему не заменил. Имхо, несоотаетствие текста справочнику, например, большие/маленькие буквы, или пробел лишний, или еще что-нибудь.