Мы продолжаем нашу борьбу за экономию времени, при разработке электронных документов. На этот раз рассмотрим пример, который поможет нам добавлять в нужное место документа один горизонтальный лист.
Стандартными средствами Word на это требуется как минимум 20-30 секунд, и как минимум, 10 раз щелкнуть мышью по различным элементам ленты и выпадающим спискам, при условии что вы знаете как это сделать.
Я Вам предлагаю использовать альтернативный вариант, используя который, Вам достаточно будет выбрать место в документе, в которое нужно вставить горизонтальный лист и нажать на кнопку в панели быстрого доступа, остальное сделает следующий код VBA:
Sub вставить_горизонтальную_страницу()
With Selection
.InsertBreak Type:=wdSectionBreakNextPage
If .PageSetup.Orientation = wdOrientPortrait Then
.PageSetup.Orientation = wdOrientLandscape
Else
.PageSetup.Orientation = wdOrientPortrait
End If
.InsertBreak Type:=wdSectionBreakNextPage
If .PageSetup.Orientation = wdOrientPortrait Then
.PageSetup.Orientation = wdOrientLandscape
Else
.PageSetup.Orientation = wdOrientPortrait
End If
End With
End Sub
Видео работы данного макроса, вы можете просмотреть по ссылке.
Для того, чтобы этот код заработал, скопируйте код в буфер обмена и выполните следующие действия.
