Преобразование .txt

[НеВа6464]

Здравствуйте!
Имеются простые (ASCII) текстовые файлы в формате .txt. При открытии этих файлов в Word мы видим, что каждая строка представляет из себя абзац, а реальные абзацы выделяются либо пустыми строками, либо серией пробелов, имитирующих абзацный отступ.
Очень хочется получить нормальные вордовские абзацы.
В ручную проблема решается просто, путем замены в выделенном фрагменте (реальном абзаце) символов конца абзаца на символ пробела. Но в ручную перелопачивать страниц 200-300, тем более несколько текстов очень неохота.
Как это сделать с помощью VBA?
Вероятно такая задача уже давно и многократно решена. Прошу помощи.
Спасибо.

[Aent]

http://artefact.lib.ru/design/text_macros_intro.shtml
и далее по ссылкам

[viter.alex]

Макрос для первого файла

Sub Прим()
  With ActiveDocument.Range.Find
    'Заменяем все абзацы на кодовую последовательность. Она может быть любой
    .Text = "^p"
    .Replacement.Text = "#####"
    .Execute Replace:=wdReplaceAll
    
    'Двойную кодовую последовательность заменяем на знак абзаца
    .Text = "##########"
    .Replacement.Text = "^p"
    .Execute Replace:=wdReplaceAll
    
    'Кодовую последовательность заменяем на пробел
    .Text = "#####"
    .Replacement.Text = " "
    .Execute Replace:=wdReplaceAll
  End With
End Sub

Макрос для второго файла:

Sub Прим2()
  With ActiveDocument.Range.Find
    'Заменяем все абзацы на пробелы
    .Text = "^p"
    .Replacement.Text = " "
    .Execute Replace:=wdReplaceAll
    
    'Четыре пробела подряд заменяем на знак абзаца
    .Text = "    "
    .Replacement.Text = "^p"
    .Execute Replace:=wdReplaceAll
  End With
End Sub

А со ссылкой, которую дал Aent, советую очень внимательно ознакомиться. Вообще, на артефакте много полезного и интересного есть.

[НеВа6464]

Всем спасибо.
Ссылку от Aent кинул в избранное. Полезная штука, но там как раз нет обработки первого случая.

[garik64]

Сообщение от viter.alex

Макрос для первого файла

Можно ведь и сразу для обоих файлов:

Sub ПримAV()
  With ActiveDocument.Range.Find
    'Меняем настоящие абзацы на кодовую последовательность
    .Text = "[(^13^13)][(^13^32)]"
    .Replacement.Text = "@@@"
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
    
    'Меняем ненастоящие на пробел
    .Text = "^13"
    .Replacement.Text = " "
    .Execute Replace:=wdReplaceAll
    
    'Кодовую последовательность - на настоящие абзацы
    .Text = "@@@"
    .Replacement.Text = "^13^13"
    .MatchWildcards = False
    .Execute Replace:=wdReplaceAll
    
    'Убиваем лишние пробелы в начале строк
    .Text = "^13(^32)@"
    .Replacement.Text = "^13"
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll

    'Для очистки совести убиваем лишние пустые строки
    .Text = "(^13)@"
    .Replacement.Text = "^13^13"
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll

    'Заодно уж двойные дефисы меняем на короткое тире
    .Text = "--"
    .Replacement.Text = "^="
    .Execute Replace:=wdReplaceAll

    'Тут можно много чего назаменять, но на сегодня хватит :)
  End With
End Sub

Для этого варианта неважно, со скольки пробелов начинается абзац - а он бывает и с двух пробелов, и с восьми.

[НеВа6464]

Так действительно удобнее. Я и сам уже объединил варианты, но более коряво.