test()

ReDim OLD_NAME(sch_VERT, 1), NEW_NAME(sch_VERT, 1)

Filename = Put_File & "OUT\" & NEW_NAME

test

Sub test(файл as string, что as string, начто as string)
Const ForReading = 1
Const TristateFalse = 0
Set FSO = CreateObject("Scripting.FileSystemObject")
Filename = файл
Set F = FSO.OpenTextFile(Filename, ForReading, TristateFalse)
WorkStrAll = F.ReadAll
WorkStrAll = Replace(WorkStrAll, что, начто)
Set F = FSO.CreateTextFile(Filename, True)
F.Write (WorkStrAll)
F.Close
End Sub

Sub test(файл As String, что As String, начто As String)
Const ForReading = 1
Const TristateFalse = 0
Set FSO = CreateObject("Scripting.FileSystemObject")
Filename = "C:\Users\Televnoy\Desktop\обрабатываемые файлы\OUT\" & Range(Cells(2, 2), Cells(2 + sch_VERT, 2))
Set F = FSO.OpenTextFile(Filename, ForReading, TristateFalse)
WorkStrAll = F.ReadAll
WorkStrAll = Replace(WorkStrAll, Range(Cells(2, 3), Cells(2 + sch_VERT, 3)), Range(Cells(2, 4), Cells(2 + sch_VERT, 4)))
Set F = FSO.CreateTextFile(Filename, True)
F.Write (WorkStrAll)
F.Close
End Sub

test Put_File + "OUT\" & NEW_NAME(1,1), OLD_ID(1,1), NEW_ID(1,1)

test (Put_File + "OUT\" & NEW_NAME(1,1), OLD_ID(1,1), NEW_ID(1,1))

Sub test3(Put_File + "OUT\" & NEW_NAME(1,1) As String, OLD_ID(1,1) As String, NEW_ID(1,1) As String)
Const ForReading = 1
Const TristateFalse = 0
Set FSO = CreateObject("Scripting.FileSystemObject")
Filename = Put_File + "OUT\" & NEW_NAME(1, 1)
Set F = FSO.OpenTextFile(Filename, ForReading, TristateFalse)
WorkStrAll = F.ReadAll
WorkStrAll = Replace(WorkStrAll, OLD_ID(1, 1), NEW_ID(1, 1))
Set F = FSO.CreateTextFile(Filename, True)
F.Write (WorkStrAll)
F.Close
End Sub

Sub test3(Put_File + "OUT\" & NEW_NAME(1,1) As String, OLD_ID(1,1) As String, NEW_ID(1,1) As String)

Sub CHANGE_NAME2_FILE()
Application.ScreenUpdating = 0
Application.DisplayAlerts = 0
Dim Im_Main, Put_File, sch_VERT As Variant
Dim FS, KATALOG, FILE, MASSIV As Object
Dim II, JJ As Integer
    Range("e2:e65000").Select
    Selection.ClearContents
sch_VERT = Cells(1, 1).End(xlDown).Row - 1
Dim OLD_NAME(), NEW_NAME(), OLD_ID(), NEW_ID() As Variant
ReDim OLD_NAME(sch_VERT, 1), NEW_NAME(sch_VERT, 1), OLD_ID(sch_VERT, 1), NEW_ID(sch_VERT, 1)
    Range("A1:B" + Trim(Str(sch_VERT + 1))).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
OLD_NAME = Range(Cells(2, 1), Cells(2 + sch_VERT, 1))
NEW_NAME = Range(Cells(2, 2), Cells(2 + sch_VERT, 2))
'_____________________________
OLD_ID() = Range(Cells(2, 3), Cells(2 + sch_VERT, 3))
NEW_ID() = Range(Cells(2, 4), Cells(2 + sch_VERT, 4))
'_____________________________
Im_Main = ActiveWorkbook.Name
Put_File = Application.ActiveWorkbook.Path + "\"
Set FS = CreateObject("Scripting.FileSystemObject")
Set KATALOG = FS.GetFolder(Put_File)
Set MASSIV = KATALOG.Files
If Dir(Put_File + "OUT\", vbDirectory) = "" Then
    MkDir (Put_File + "OUT\")
End If

If Dir(Put_File + "OUT\", vbDirectory) <> "" Then
'If Len(Dir(Put_File + "OUT\*.*")) > 0 Then
    'Kill (Put_File + "OUT\*.*")
'End If

For II = 1 To sch_VERT
    For Each FILE In MASSIV
        If Dir(FILE) = OLD_NAME(II, 1) And Dir(FILE) <> Im_Main Then
           FileCopy FILE, Application.ActiveWorkbook.Path + "\OUT\" + NEW_NAME(II, 1)
           Cells(II + 1, 5).Value = "готово"
        End If
    Next

Next 'ii

' заменяемые значения

Const ForReading = 1
Const TristateFalse = 0
Set FSO = CreateObject("Scripting.FileSystemObject")
Filename = Put_File + "OUT\" & NEW_NAME(1, 1)
Set F = FSO.OpenTextFile(Filename, ForReading, TristateFalse)
WorkStrAll = F.ReadAll
WorkStrAll = Replace(WorkStrAll, OLD_ID(1, 1), NEW_ID(1, 1))
Set F = FSO.CreateTextFile(Filename, True)
F.Write (WorkStrAll)
F.Close

'____________________________________

MsgBox "Готово"
End If
Application.ScreenUpdating = 1
Application.DisplayAlerts = 1
End Sub

OLD_NAME = Range(Cells(2, 1), Cells(2 + sch_VERT, 1))
NEW_NAME = Range(Cells(2, 2), Cells(2 + sch_VERT, 2))
'_____________________________
OLD_ID() = Range(Cells(2, 3), Cells(2 + sch_VERT, 3))
NEW_ID() = Range(Cells(2, 4), Cells(2 + sch_VERT, 4))

for f=1 to 15
Const ForReading = 1
Const TristateFalse = 0
Set FSO = CreateObject("Scripting.FileSystemObject")
Filename = Put_File + "OUT\" & NEW_NAME(f, 1)
Set F = FSO.OpenTextFile(Filename, ForReading, TristateFalse)
WorkStrAll = F.ReadAll
WorkStrAll = Replace(WorkStrAll, OLD_ID(f, 1), NEW_ID(f, 1))
Set F = FSO.CreateTextFile(Filename, True)
F.Write (WorkStrAll)
F.Close
next f

WorkStrAll = Replace(WorkStrAll, OLD_ID(f, 1), NEW_ID(f, 1))

for i=1 to 15
Const ForReading = 1
Const TristateFalse = 0
Set FSO = CreateObject("Scripting.FileSystemObject")
Filename = Put_File + "OUT\" & NEW_NAME(i, 1)
Set F = FSO.OpenTextFile(Filename, ForReading, TristateFalse)
WorkStrAll = F.ReadAll
WorkStrAll = Replace(WorkStrAll, OLD_ID(i, 1), NEW_ID(i, 1))
Set F = FSO.CreateTextFile(Filename, True)
F.Write (WorkStrAll)
F.Close
next i

Sub Test2()
      ' Выбор ячейки A2, *первой строки данных*.
      Range("A2").Select
      ' Организация цикла Do до первой пустой ячейки.
      Do Until IsEmpty(ActiveCell)
         ' Вставьте код сюда.
         ' Перемещение на 1 строку ниже текущего местонахождения.
         ActiveCell.Offset(1, 0).Select
      Loop
   End Sub

Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
a = iLastRow - 1
'_______________________________________
For i = 1 To a
Const ForReading = 1
Const TristateFalse = 0
Set FSO = CreateObject("Scripting.FileSystemObject")
Filename = Put_File + "OUT\" & NEW_NAME(i, 1)
Set f = FSO.OpenTextFile(Filename, ForReading, TristateFalse)
WorkStrAll = f.ReadAll
WorkStrAll = Replace(WorkStrAll, OLD_ID(i, 1), NEW_ID(i, 1))

Set f = FSO.CreateTextFile(Filename, True)
f.Write (WorkStrAll)
f.Close
Next i

For i = 1 To  sch_VERT