Статьи из блога

Макрос переключения между форматами страниц

Надежда, читательница рассылки сайта, пожаловалась на имеющуюся у нее проблему с отсутствием в диалоговом окне Параметры страницы редактора Word 2003 выбора формата страницы А5. Ей приходится вручную устанавливать нужные параметры. Надежда спрашивает, можно ли как-то решить эту проблему.

 

Я предложил воспользоваться небольшим макросом, который позволяет переключаться в редакторе с одного формата А4 на формат А5 и обратно простым щелчком мыши по назначенной для этого макроса кнопке на панели инструментов.

 

Возможно, кому-то этот макрос может также пригодиться. Вот его код:

Sub pageSetupChange()
'Макрос, изменяющий формат страницы с А5 на А4 и обратно.
With ActiveDocument.PageSetup
   If .PaperSize = wdPaperA4 Then
      .PaperSize = wdPaperA5
   Else
      .PaperSize = wdPaperA4
   End If
 End With
Application.ScreenRefresh
End Sub

Если текущий документ имеет формат А4, то макрос меняет формат страницы на А5, а если формат А5 - то меняет на А4. Таким образом, один макрос - одна кнопка - два режима.

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

Комментариев: 1

  1. Ирина
    26.07.2010 в 16:21 | #1

    У меня этот макрос не работает. При выполнении отладчик говорит "5889 - свойство papersize на данном принтере не работает"

Оставьте комментарий!

(обязательно)

^ Наверх