Adicione botões de mais / menos ao controle deslizante de zoom na barra de status no Word para Mac 2011

Question

No Microsoft Word (para Windows) 2010, existem botões de mais e menos além do controle deslizante de zoom na barra de status (inferior direito) que permitem aumentar / diminuir o zoom em saltos de 10% arredondados para os próximos 10%. p>

OMicrosoftWordparaMac2011temomesmocontroledeslizante,masnãoessesbotões.Achodifícilusarocontroledeslizante,ozoomaumentarapidamenteeumzoom"fino" não é possível (no meu laptop).

Alguém sabe se eu poderia pegar esses botões e como?

Como solução, pode-se usar cmd - Ctrl -scroll para cima / baixo com um mouse ou cmd - ctrl -duas-dedo-deslize para cima / baixo em um trackpad para aumentar e diminuir o zoom.

    

Answer 1

O melhor que posso fazer é criar o VBA como abaixo e atribuir teclas e / ou botões. Ele não fornece botões próximos ao controle deslizante (uma barra de ferramentas não teria uma janela flutuante e não se moveria ao redimensionar a janela principal), mas você pode colocar um botão nos dois lados da lista suspensa Zoom na barra de ferramentas Padrão. Mesmo para fazer isso eu tive que

• crie as macros (digamos, em Normal.dotm)
• entre no Ver-Barras de ferramentas- > Personalizar barras de ferramentas e menus ...- > Barras de ferramentas e Menus
• Clique em "Novo ..." para uma nova barra de ferramentas (temporária). O nome padrão é bom.
• Clique na guia Comandos na caixa de diálogo
• Em Categorias, selecione Macros
• Localize cada macro na lista à direita e arraste-a para o novo barra de ferramentas
• Clique com o botão direito em cada novo "botão" (que mostrará o nome da macro) e
  • clique em Propriedades ...
  • Selecione um ícone no menu suspenso no canto superior esquerdo (usei as setas à esquerda da linha 5)
  • No menu suspenso Visualizar:, selecione "Estilo padrão"
• Em seguida, arraste cada seta para o local apropriado no Padrão barra de ferramentas
• Excluir a barra de ferramentas temporária

A programação de eventos do Word pode ser claramente melhorada porque, mesmo assim, quando você altera o zoom, os valores suspensos de Zoom não são atualizados até você clicar no documento novamente (enquanto o valor no controle deslizante na parte inferior é atualizado imediatamente). / p>

O código macro ...

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

Considere a proporção de zoom mínimo / máximo (porque a taxa mínima de zoom é de 10% e máxima de 500%. O script garante que ele não exceda ambos os limites):

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