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, "Преобразование файла")
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.