Microsoft Office Forums - View Single Post

gmayor · 08-18-2015, 09:11 PM

It is very simple to create such macros, but whether they are more useful than the built-in zoom function is debatable. http://www.gmayor.com/installing_macro.htm

Code:

Sub Zoom100()
    With ActiveWindow.View
        If Err.Number = 4248 Then Exit Sub
        .Type = wdPrintView
        .Zoom = 100
    End With
End Sub

Sub Zoom150()
    With ActiveWindow.View
        If Err.Number = 4248 Then Exit Sub
        .Type = wdPrintView
        .Zoom = 150
    End With
End Sub

Perhaps more useful would be a macro to toggle between 100% and 150%?

Code:

Sub ToggleZoom()
    With ActiveWindow.View
        If Err.Number = 4248 Then Exit Sub
        .Type = wdPrintView
        If Not .Zoom = 100 Then
            .Zoom = 100
        Else
            .Zoom = 150
        End If
    End With
End Sub