Macros to zoom to 150% and 100%

gogreen · #1 08-18-2015, 02:43 PM

How do I create a macro in MS Word 2010 that takes a document to a zoom size of 150%? Are these already created where I can download them? Similarly, how do I do the same thing for 100%? Thanks.

gmayor · #2 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

gogreen · #3 08-24-2015, 02:25 PM

Thanks, Graham. The macros work perfectly!

dovel · #4 07-30-2020, 11:20 PM

Can you please specify the entire process from Create to having a Quick Access Bar icon for toggling between zoom 100 and zoom 500?

gmayor · #5 07-31-2020, 05:25 AM

See Installing Macros

Charles Kenyon · #6 07-31-2020, 11:49 AM

You might want to attach a keyboard shortcut to the macro rather than or in addition to the QAT icon.
Assigning Keyboard Shortcuts in Microsoft Word 2010-2019 (365) - Microsoft Community

Modifying the Quick Access Toolbar (QAT) in Microsoft Word
Install/Employ VBA Procedures (Macros) by Greg Maxey

macropod · #7 07-31-2020, 02:32 PM

Duplicate: https://www.msofficeforums.com/word/...ng-toggle.html
Dovel: Kindly don't post questions on the same topic in multiple threads.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
OneNote Zoom in	Techno_y0	OneNote	1	04-27-2015 02:14 AM
Zoom-in and -out	mpv55	PowerPoint	0	10-28-2013 08:01 AM
Can't zoom in - PPT 2013?	TheDave777	PowerPoint	1	04-19-2013 08:54 AM
Zoom in transitions	pdj	PowerPoint	1	11-01-2012 11:14 AM
Zoom In and Out	DAC8190	PowerPoint	1	03-16-2011 08:50 AM