1 Тема от Alex_Gur

  • Присоединение строки сверху к рисунку
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Тема: Присоединение строки сверху к рисунку

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

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

Повторное применение данного макроса "открепляет" строку текста от рисунка.
Данный макрос не влияет на настройки стилей строки текста.

Я применяю данный макрос, устанавливая курсор в тексте на нужную строку и нажимая кнопку F5 в редакторе VBA. В принципе, макросу можно назначить некоторую комбинацию клавиш.

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