Быстрая смена ориентации страниц документа

Источник: wordexpert

Антон Кокин

Стандартно смена ориентации страниц документа (книжная или альбомная) происходит через диалоговое окно Параметры страницы, вызываемое по одноименной команде из меню Файл (Word 2003) или через вкладку Разметка страницы (Word 2007).
Можно ускорить действия по смене ориентации страниц, если воспользоваться небольшим макросом:

Sub orientPage()
With ActiveDocument.PageSetup
   If .Orientation <> wdOrientPortrait Then
      .Orientation = wdOrientPortrait
   Else
      .Orientation = wdOrientLandscape
   End If
End With
End Sub

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

Sub orientPage2()
   With Selection.PageSetup
      If .Orientation <> wdOrientPortrait Then
         .Orientation = wdOrientPortrait
      Else
         .Orientation = wdOrientLandscape
      End If
   End With
End Sub

Присвойте нужному вам макросу сочетание клавиш или кнопку на панели инструментов (или в панели быстрого запуска).