Как автозаменой исправлять слипшиеся абзацы в Word?

[iva2000]

Иногда абзац заканчивается значком ¶, но следующий за ним абзац не начинается с абзацного отступа. И если применить иной стиль к первому абзацу, этот стиль применится и ко второму.

Как такие абзацы находиться автозаменой или скриптом и "псевдоконец" абзаца заменять на "обычный конец" абзаца?

В приложенном примере приведены такие "слипшиеся" абзацы.

{Это второй форум на котором я задаю этот вопрос. Никто не знает как это сделать.}

[Ципихович Эндрю]

Сообщение от iva2000

Это второй форум на котором я задаю этот вопрос. Никто не знает как это сделать

а первый какой?
я посмотрел файл-ответ не знаю, не понял как сделать, но уверен, что Ваши размышления про стили это не есть гут, нужно скопировать и поместить в Блокнот, а оттуда снова в Ворд после чего похоронятся все стили и расставить всё как нужно

[сфинкс]

Макрос Word на основе наработки аж прошлого... века у меня исправил исходный док

Sub ENTER()

    Selection.HomeKey Unit:=wdStory
    ActiveWindow.View.Type = wdNormalView
    ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW$(13)
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.EndKey Unit:=wdStory
    ActiveWindow.View.Type = wdPageView
    ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit
End Sub