Добавьте кнопки плюс / минус к ползунку масштабирования в строке состояния в Word для Mac 2011

Question

В Microsoft Word (для Windows) 2010, кроме ползунка масштабирования в строке состояния (внизу справа), есть кнопки «плюс» и «минус», которые позволяют увеличивать / уменьшать масштаб при переходе на 10% с округлением до следующих 10%.

Microsoft Word для Mac 2011 имеет тот же слайдер, но не те кнопки. Я нахожу использование ползунка очень сложным, зум быстро переходит в другое положение, и «мелкозернистое» масштабирование невозможно (на моем ноутбуке).

Кто-нибудь знает, могу ли я получить эти кнопки там и как?

В качестве обходного пути можно использовать cmd - ctrl - прокрутить вверх / вниз с помощью мыши или cmd - ctrl -two-finger-swipe вверх / вниз по трекпаду для увеличения и уменьшения.

Answer 1

Лучшее, что я могу сделать, это создать VBA, как показано ниже, и назначать нажатия клавиш и / или кнопок. Он не дает вам кнопок рядом с ползунком (панель инструментов будет плавающим окном и не будет перемещаться при изменении размера основного окна), но вы можете поместить кнопку по обе стороны от раскрывающегося списка Масштаб на стандартной панели инструментов. Даже для этого мне пришлось

• создать макросы (скажем, в Normal.dotm)
• перейдите в View-Toolbars-> Настройка панелей инструментов и меню ...-> Панели инструментов и меню
• Нажмите «Новый ...» для новой (временной) панели инструментов. Имя по умолчанию в порядке.
• Перейдите на вкладку "Команды" в диалоговом окне.
• В разделе "Категории" выберите "Макросы".
• Найдите каждый макрос в списке справа и перетащите его на новую панель инструментов.
• Щелкните правой кнопкой мыши на каждой новой "кнопке" (которая покажет имя макроса) и
  • нажмите Свойства ...
  • Выберите значок из выпадающего списка в левом верхнем углу (я использовал стрелки в левой части строки 5)
  • В выпадающем меню View: выберите "Стиль по умолчанию"
• Затем перетащите каждую стрелку в соответствующее место на стандартной панели инструментов.
• Удалить временную панель инструментов

Программирование событий Word может быть явно улучшено, потому что даже тогда, когда вы изменяете масштаб, значения раскрывающегося списка Масштаб не обновляются, пока вы снова не щелкнете по документу (тогда как значение на ползунке внизу действительно обновится немедленно).

Код макроса ...

Sub zoomIn10()
On Error Resume Next
With ActiveWindow.ActivePane.View.Zoom
  .Percentage = .Percentage + 10
End With
End Sub

Sub zoomOut10()
On Error Resume Next
With ActiveWindow.ActivePane.View.Zoom
  .Percentage = .Percentage - 10
End With
End Sub

Answer 2

Учитывайте минимальный / максимальный коэффициент масштабирования (поскольку минимальный коэффициент масштабирования составляет 10%, а максимальный - 500%. Скрипт гарантирует, что он не превысит оба предела):

Sub Edit_ZoomIn()
    On Error Resume Next
    Dim originalZoom As Integer 'variable for original zoom
    Dim targetZoom As Integer
    originalZoom = ActiveDocument.ActiveWindow.View.Zoom.Percentage 'get current zoom
    targetZoom = originalZoom + 10
    If targetZoom > 500 Then
        targetZoom = 500
    End If
    ActiveDocument.ActiveWindow.View.Zoom.Percentage = targetZoom
End Sub

Sub Edit_ZoomOut()
    On Error Resume Next
    Dim originalZoom As Integer 'variable for original zoom
    Dim targetZoom As Integer
    originalZoom = ActiveDocument.ActiveWindow.View.Zoom.Percentage 'get current zoom
    targetZoom = originalZoom - 10
    If targetZoom < 10 Then
        targetZoom = 10
    End If
    ActiveDocument.ActiveWindow.View.Zoom.Percentage = targetZoom
End Sub

Sub Edit_Zoom0()
    On Error Resume Next
    ActiveDocument.ActiveWindow.View.Zoom.Percentage = 100
End Sub