Is this supposed to work for Word 2016? Because I have tried it, and it produces error message and fails most of the time.
The method suggested by AnssiR also does not work consistently. It does not work on docs opened from the Internet or from email attachments, for example.
Loading
WordTips (Menu Interface)
This Site
Got a version of Word that uses the menu interface (Word 97, Word 2000, Word 2002, or Word 2003)? This site is for you! If you use a later version of Word, visit our WordTips site focusing on the ribbon interface.
Author Bio
With more than 50 non-fiction books and numerous magazine articles to his credit, Allen Wyatt is an internationally recognized author. He is president of Sharon Parq Associates, a computer and publishing services company.
Learn more about Allen...
Subscribe
Helpful Links
WordTips FAQ
Ask a Word Question
Make a Comment
Free Business Forms
Free Calendars
Automatically Opening a Document at a Specific Zoom Setting
Please Note: This article is written for users of the following Microsoft Word versions: 97, 2000, 2002, and 2003. If you are using a later version (Word 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Word, click here: Automatically Opening a Document at a Specific Zoom Setting.
Unfortunately, Word does not have a setting you can use to specify a default "open" zoom level for your documents. (This would be very nice—Redmond, are you listening?) This means that documents open at the zoom level used when the document was originally saved.
One way to work around this is to create an AutoOpen macro, and then save it in the Normal template. This macro is then automatically run whenever a document based on the template is opened. Since every document has access to the Normal template, every document will have access to the macro.
To make the change, simply open the Normal template file directly and then create your macro, as follows:
Public Sub AutoOpen()
ActiveWindow.ActivePane.View.Zoom.Percentage = 200
End Sub
Notice that in this very short macro the zoom level is set to 200, which means 200%. If you want some other default zoom level, simply change the value to the desired percentage. Now save and close your Normal template, and exit Word. When you restart Word and open your other files, they should change to the specified zoom level automatically.
WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (1343) applies to Microsoft Word 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Word (Word 2007 and later) here: Automatically Opening a Document at a Specific Zoom Setting.
Related Tips:
Learning Made Easy! Quickly teach yourself how to format, publish, and share your content using Word 2013. With Step by Step, you set the pace, building and practicing the skills you need, just when you need them! Check out Microsoft Word 2013 Step by Step today!
Leave your own comment:
Comments for this tip:
JG1 11 May 2016, 20:02
Anj 07 May 2016, 04:18
Very helpful.
AnssiR 23 Jan 2016, 02:17
This works (Word 2016) by simply
1) locate the zoom scale at the bottom right
2) click on the percentage (default 100%), a new window opens
3) choose the zoom level you want, click OK
4) this will affect all new documents + existing ones you open
1) locate the zoom scale at the bottom right
2) click on the percentage (default 100%), a new window opens
3) choose the zoom level you want, click OK
4) this will affect all new documents + existing ones you open
ashantiqua 30 Dec 2015, 15:21
Here's what works for me on Word 2013 to set the zoom @ 100% when opening a doc:
Private Sub Document_Open()
ActiveDocument.ActiveWindow.View.Zoom.Percentage = 100
End Sub
"ActiveDocument" generally isnt the best to use, but whatever, it works.
Private Sub Document_Open()
ActiveDocument.ActiveWindow.View.Zoom.Percentage = 100
End Sub
"ActiveDocument" generally isnt the best to use, but whatever, it works.
Richard 19 Oct 2015, 05:42
How about just copying and pasting the entire contents into a new doocument?
jay gamel 23 Sep 2015, 14:58
This does not work for me. i have it as a new module (Module1) in the Normal.dotm file and it does not execute. The Normal template itself opens at 200%, but not new docs.
It DOES work if i step through Module 1 in VB mode with debugger through! What am i missing? Is listed separately from AutoExec, as AutoRun.
mac 10.10.5, Word 2011, all updates.
It DOES work if i step through Module 1 in VB mode with debugger through! What am i missing? Is listed separately from AutoExec, as AutoRun.
mac 10.10.5, Word 2011, all updates.
Claudia Thompson 28 Aug 2015, 04:38
You say
To make the change, simply open the Normal template file directly and then create your macro, as follows:
Public Sub AutoOpen()
ActiveWindow.ActivePane.View.Zoom.Percentage = 200
End Sub
Can anyone please explain to me how to go about doing this?
To make the change, simply open the Normal template file directly and then create your macro, as follows:
Public Sub AutoOpen()
ActiveWindow.ActivePane.View.Zoom.Percentage = 200
End Sub
Can anyone please explain to me how to go about doing this?
celphis 01 Jul 2015, 09:44
hey
thank you very much, you made my day! :)
thank you very much, you made my day! :)
David Kettle 13 May 2014, 02:24
Hey guys, the comment from Anonymous seems to be working well for me with one exception. When I open a document that someone has sent me and I need to click on 'Enable Editing' because it's in protected view. In this case it appears to do nothing to the size. Is there a way to address this issue - we have lots of incoming documents like this (80%+ are like this).
Anonymous 16 Jun 2013, 23:42
'use all of this in your normal template
Sub AutoNew()
' when you creating a document
onePage100
End Sub
Sub AutoOpen()
' when you open a document
onePage100
End Sub
Sub AutoExec()
'when you open word itself
'needs an imaginary timedelay because word needs some time to create the new sheet...
Application.OnTime When:=Now + TimeValue("00:00:00"), Name:="onePage100" ' maybe you will need "00:00:01" depends on how fast your computer is
End Sub
Sub onePage100()
'
' autochange the view to one Page and 100%
' do not work in safe View
'
On Error Resume Next
ActiveWindow.ActivePane.View.Zoom.Percentage = 100 ' 100% feel free to change this
ActiveWindow.View.Type = wdWebView
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdPrintView
Else
ActiveWindow.View.Type = wdPrintView
End If
End Sub
Sub AutoNew()
' when you creating a document
onePage100
End Sub
Sub AutoOpen()
' when you open a document
onePage100
End Sub
Sub AutoExec()
'when you open word itself
'needs an imaginary timedelay because word needs some time to create the new sheet...
Application.OnTime When:=Now + TimeValue("00:00:00"), Name:="onePage100" ' maybe you will need "00:00:01" depends on how fast your computer is
End Sub
Sub onePage100()
'
' autochange the view to one Page and 100%
' do not work in safe View
'
On Error Resume Next
ActiveWindow.ActivePane.View.Zoom.Percentage = 100 ' 100% feel free to change this
ActiveWindow.View.Type = wdWebView
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdPrintView
Else
ActiveWindow.View.Type = wdPrintView
End If
End Sub
Anonymous 16 Jun 2013, 22:47
Does not work for Word 2013
Sara 17 Mar 2013, 12:11
Thank you! You helped me solve a quirky problem to which I was concerned there was no solution.
miguel 05 Oct 2012, 16:43
Thanks, this tip saved the day and taught us something new.