Word VBA Макрос: Установить знак абзаца перед разрывом раздела

[Firetol]

Здравствуйте.
Подскажите, если не сложно, как во всем тексте установить знак абзаца перед разрывом раздела, если он там не стоит?

У меня часто возникает такая ситуация, как в примере. Пробовал заменой - не получается.
Если знака абзаца нет, то текст при выравнивании по ширине распределяется неправильно!

[вложение удалено администратором]

[Администратор]

Макрос

Sub Макрос()

    Dim find_rng As Range, find As find
   
   
    '1. Откл. монитора.
    Application.ScreenUpdating = False
   
    '2. Создание объектов, которые будут искать.
    Set find_rng = ActiveDocument.Range(0, 0)
    Set find = find_rng.find
   
    '3. Настройка поиска.
    find.Text = "^b"
    find.Wrap = wdFindStop
   
    '4. Поиск.
    Do While find.Execute = True
        '1) Вставка знака абзаца перед символом "разрыв раздела", если знака абзаца нет.
        If find_rng.Characters.First.Previous <> Chr(13) Then
            find_rng.InsertParagraphBefore
        End If
        '2) Превращение рейнджа в точку вставки и установка точки вставки после найденного фрагмента.
        find_rng.Collapse Direction:=wdCollapseEnd
    Loop
   
    '5. Вкл. монитора.
    Application.ScreenUpdating = True
   
    '6. Сообщение.
    MsgBox "Готово.", vbInformation
   
End Sub

[свернуть]

[Firetol]

Все отработало как надо. Большое спасибо!