Loading
Word.Tips.Net WordTips (Menu Interface)

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:

*Name:
Email:
  Notify me about new comments ONLY FOR THIS TIP
Notify me about new comments ANYWHERE ON THIS SITE
Hide my email address
*Text:
*What is 5+3 (To prevent automated submissions and spam.)
 
 
           Commenting Terms

Comments for this tip:

JG1    11 May 2016, 20:02
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.
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
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.
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.
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?
celphis    01 Jul 2015, 09:44
hey

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
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.
 
 

Our Company

Sharon Parq Associates, Inc.

About Tips.Net

Contact Us

 

Advertise with Us

Our Privacy Policy

Our Sites

Tips.Net

Beauty and Style

Cars

Cleaning

Cooking

DriveTips (Google Drive)

ExcelTips (Excel 97–2003)

ExcelTips (Excel 2007–2016)

Gardening

Health

Home Improvement

Money and Finances

Organizing

Pests and Bugs

Pets and Animals

WindowsTips (Microsoft Windows)

WordTips (Word 97–2003)

WordTips (Word 2007–2016)

Our Products

Helpful E-books

Newsletter Archives

 

Excel Products

Word Products

Our Authors

Author Index

Write for Tips.Net

Copyright © 2016 Sharon Parq Associates, Inc.