Sub del_15Char()
'Удаление первых 19 символов у каждого абзаца (параграфа)
Const chSize = 19
Dim par As Paragraph
For Each par In ActiveDocument.Paragraphs
   par.Range.Characters.First.Delete Unit:=wdCharacter, count:=chSize
Next par
End Sub

' В Указанном текстовом файле удалим в каждой строке заданное кол-во символов в начале строки

    InFile = "D:\Примеры файлов\Для убийства символов в начале строк.log"       ' Путь к текстовому файлу
    Ndele = 19                                                                  ' Cколько символов удаляем
    InSave = 1                                          ' =0 -Не сохраним копию исходного файла, не 0 -сохраним
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
' Если надо сохранить исходный файл в .bak
    
    If InSave <> 0 Then
        On Error Resume Next
        Set F1 = FSO.GetFile(InFile)
        If Err.Number = 0 Then
            F1.Copy InFile + ".bak"
            F1.Close
        End If
    End If

On Error Resume Next
Set F1 = FSO.OpenTextFile(InFile, 1, False)

If Err.Number = 0 Then
        Messa = CStr(Time) + "  Открыт файл " + InFile + Chr(13) + Chr(10)
' Читаем исходный файл в массив
        iString = F1.ReadAll()
        F1.Close
        iString = Replace(iString, Chr(10), "")
        Mass = Split(iString, Chr(13))
        iString = ""
        N = UBound(Mass)
    
' Записываем результат в файл
    
    Set F1 = FSO.OpenTextFile(InFile, 2, True)

    For i = 0 To N
           F1.WriteLine Mid(Mass(i), Ndele + 1, 9999)
    Next
    
    F1.Close
    Messa = Messa + CStr(Time) + "  Преобразование завершено"

Else
    Messa = "Ошибка при открытии файла " + Chr(13) + Chr(10) + InFile + Chr(13) + Chr(10) + Err.Description
    
End If
L = MsgBox(Messa, 0, "Преобразование файла")