在 Word for Mac 2011 的状态栏缩放滑块中添加加号/减号按钮

Question

在 Microsoft Word（适用于 Windows）2010 中，状态栏（右下角）中的缩放滑块旁边有加号和减号按钮，允许以 10% 的幅度放大/缩小并四舍五入到下一个 10%。

Microsoft Word for Mac 2011 有相同的滑块，但没有这些按钮。我发现使用滑块非常困难，缩放跳得太快，无法进行“细粒度”缩放（在我的笔记本电脑上）。

有人知道我是否可以在那里找到这些按钮以及如何找到它们吗？

作为一种解决方法，人们可以使用cmd- -ctrl使用鼠标向上/向下滚动或cmd- -ctrl在触控板上用两根手指向上/向下滑动来放大和缩小。

Answer 1

我能做的最好的事情就是创建如下所示的 VBA 并分配给按键和/或按钮。它不会在滑块附近提供按钮（那里的工具栏会是一个浮动窗口，当您调整主窗口的大小时不会移动），但您可以在标准工具栏中的缩放下拉菜单的两侧放置一个按钮。即使要做到这一点，我也必须

• 创建宏（例如，在 Normal.dotm 中）
• 进入视图-工具栏->自定义工具栏和菜单...->工具栏和菜单
• 单击“新建...”可创建一个新的（临时）工具栏。默认名称即可。
• 单击对话框中的命令选项卡
• 在类别下，选择宏
• 在右侧列表中找到每个宏并将其拖到新工具栏
• 右键单击每个新的“按钮”（将显示宏名称）并
  • 单击属性...
  • 从左上角的下拉菜单中选择一个图标（我使用了第 5 行左侧的箭头）
  • 在视图：下拉菜单中，选择“默认样式”
• 然后将每个箭头拖到标准工具栏中的适当位置
• 删除临时工具栏

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