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

Надежда, читательница рассылки сайта, пожаловалась на имеющуюся у нее проблему с отсутствием в диалоговом окне Параметры страницы редактора 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. Таким образом, один макрос - одна кнопка - два режима.