1 Тема от Alex_Gur

  • Макрос, позволяющий не отрывать абзац от предыдущего
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492
  • За сообщение: 1

Тема: Макрос, позволяющий не отрывать абзац от предыдущего

Макрос, позволяющий не отрывать абзац от предыдущего и не разрывать абзац

Предлагаю простой, но очень удобный макрос для прикрепления абзаца (или нескольких выделенных абзацев) к нижележащему рисунку или следующему абзацу. Я обычно применяю его для прикрепления текста, описывающего нижележащий рисунок, к указанному рисунку. 

Sub НеОтрыватьОтПредыдущего()
'
' Макрос - Не отрывать от предыдущего и не разрывать абзац
'
    With Selection.ParagraphFormat
        If .KeepWithNext = True Then
            .KeepWithNext = False
            .KeepTogether = False
        Else: .KeepWithNext = True
              .KeepTogether = True
        End If
    End With
End Sub

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

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.