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

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

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

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

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