(495) 925-0049, ITShop интернет-магазин 229-0436, Учебный Центр 925-0049
  Главная страница Карта сайта Контакты
Поиск
Вход
Регистрация
Рассылки сайта
 
 
 
 
 

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

Источник: 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

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

Ссылки по теме


 Распечатать »
 Правила публикации »
  Написать редактору 
 Рекомендовать » Дата публикации: 04.09.2007 
 

Магазин программного обеспечения   WWW.ITSHOP.RU
Microsoft Office 365 для Дома 32-bit/x64. 5 ПК/Mac + 5 Планшетов + 5 Телефонов. Подписка на 1 год.
Microsoft Office 365 Персональный 32-bit/x64. 1 ПК/MAC + 1 Планшет + 1 Телефон. Все языки. Подписка на 1 год.
Microsoft Office 365 Бизнес. Подписка на 1 рабочее место на 1 год
Microsoft 365 Business Basic (corporate)
Microsoft Office для дома и учебы 2019 (лицензия ESD)
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Безопасность компьютерных сетей и защита информации
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование на Microsoft Access
CASE-технологии
Мастерская программиста
Проект mic-hard - все об XP - новости, статьи, советы
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
 



    
rambler's top100 Rambler's Top100