Здравствуйте.
Подскажите, если не сложно, как во всем тексте установить знак абзаца перед разрывом раздела, если он там не стоит?
У меня часто возникает такая ситуация, как в примере. Пробовал заменой - не получается.
Если знака абзаца нет, то текст при выравнивании по ширине распределяется неправильно!
[вложение удалено администратором]
Макрос
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
Все отработало как надо. Большое спасибо!