Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 08-18-2015, 02:43 PM
gogreen gogreen is offline Macros to zoom to 150% and 100% Windows 7 64bit Macros to zoom to 150% and 100% Office 2010 32bit
Advanced Beginner
Macros to zoom to 150% and 100%
 
Join Date: Aug 2015
Posts: 65
gogreen is on a distinguished road
Default Macros to zoom to 150% and 100%

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.
Reply With Quote
  #2  
Old 08-18-2015, 09:11 PM
gmayor's Avatar
gmayor gmayor is offline Macros to zoom to 150% and 100% Windows 7 64bit Macros to zoom to 150% and 100% Office 2010 32bit
Expert
 
Join Date: Aug 2014
Posts: 3,298
gmayor is a name known to allgmayor is a name known to allgmayor is a name known to allgmayor is a name known to allgmayor is a name known to allgmayor is a name known to all
Default

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
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote
  #3  
Old 08-24-2015, 02:25 PM
gogreen gogreen is offline Macros to zoom to 150% and 100% Windows 7 64bit Macros to zoom to 150% and 100% Office 2010 32bit
Advanced Beginner
Macros to zoom to 150% and 100%
 
Join Date: Aug 2015
Posts: 65
gogreen is on a distinguished road
Default

Thanks, Graham. The macros work perfectly!
Reply With Quote
  #4  
Old 07-30-2020, 11:20 PM
dovel dovel is offline Macros to zoom to 150% and 100% Windows 10 Macros to zoom to 150% and 100% Office 2019
Novice
 
Join Date: Jul 2020
Posts: 6
dovel is on a distinguished road
Default

Can you please specify the entire process from Create to having a Quick Access Bar icon for toggling between zoom 100 and zoom 500?
Reply With Quote
  #5  
Old 07-31-2020, 05:25 AM
gmayor's Avatar
gmayor gmayor is offline Macros to zoom to 150% and 100% Windows 10 Macros to zoom to 150% and 100% Office 2016
Expert
 
Join Date: Aug 2014
Posts: 3,298
gmayor is a name known to allgmayor is a name known to allgmayor is a name known to allgmayor is a name known to allgmayor is a name known to allgmayor is a name known to all
Default

See Installing Macros
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote
  #6  
Old 07-31-2020, 11:49 AM
Charles Kenyon Charles Kenyon is offline Macros to zoom to 150% and 100% Windows 10 Macros to zoom to 150% and 100% Office 2019
Moderator
 
Join Date: Mar 2012
Location: Sun Prairie, Wisconsin
Posts: 6,923
Charles Kenyon is a splendid one to beholdCharles Kenyon is a splendid one to beholdCharles Kenyon is a splendid one to beholdCharles Kenyon is a splendid one to beholdCharles Kenyon is a splendid one to beholdCharles Kenyon is a splendid one to beholdCharles Kenyon is a splendid one to beholdCharles Kenyon is a splendid one to behold
Default

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
Reply With Quote
  #7  
Old 07-31-2020, 02:32 PM
macropod's Avatar
macropod macropod is offline Macros to zoom to 150% and 100% Windows 7 64bit Macros to zoom to 150% and 100% Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 20,489
macropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant future
Default

Duplicate: https://www.msofficeforums.com/word/...ng-toggle.html
Dovel: Kindly don't post questions on the same topic in multiple threads.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Macros to zoom to 150% and 100% 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
Macros to zoom to 150% and 100% 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

Other Forums: Access Forums - Senior Forums

All times are GMT -7. The time now is 07:13 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2020, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2020 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft