Change Default Zoom Size to 'Page Width'

Stefan Blom · #1 01-30-2012, 12:52 AM

Since you already have a module called "NewMacros," you can make use of that one. Double-click the module to open it and paste in the code from this thread.

stevieraygall · #2 12-18-2012, 10:09 AM

My mother is visually impaired. I want to open and create office documents in a default zoom setting (300%). I looks like I need the proper macro to do this. Is it possible?

Stefan Blom · #3 12-18-2012, 12:54 PM

Something like this should work:

Code:

Sub AutoOpen()
ActiveWindow.View.Type = 3
ActiveWindow.View.Zoom.Percentage = 300
End Sub
 
Sub AutoNew()
ActiveWindow.View.Type = 3
ActiveWindow.View.Zoom.Percentage = 300
End Sub

stevieraygall · #4 12-18-2012, 07:49 PM

Wow! That was quick. This will work.

Could you point me in the direction of the macros I would need to do the same thing with Excel (I know that's a different ballgame) and Outlook?

Stefan Blom · #5 12-19-2012, 07:50 AM

You are welcome.

To learn about Excel and Outlook, you'd have to ask in Excel and Outlook forums, though.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Anyone ever seen this page width issue? New one to me...	MCSims	Word	3	09-08-2011 02:09 PM
Problem with zoom to "text width"	b0x4it	Word VBA	3	05-29-2011 03:01 AM
Word is inserting bold page-width lines without permission!	kozureokami	Word	6	05-22-2011 02:59 PM
Default Zoom in Excel 2003	BradTinBC	Excel	0	08-17-2009 11:27 AM
Page opens at 175% zoom. How can I reset the default?	Renee Hendershott	Word	2	01-22-2006 06:59 PM