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

Источник: wordexpert
Антон Кокин

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


Страница сайта http://185.71.96.61
Оригинал находится по адресу http://185.71.96.61/home.asp?artId=6923