Automatically Opening a Document at a Specific Zoom Setting

Thank you. This works. Instead of using an absolute percentage, like 200% or 100%, is there any keyword to set it to the dynamic "Whole Page" zoom level? This is the setting that automatically changes the zoom level based on the size of the window. For instance if my Word window is stretched to full height on my left monitor, it comes out to 74%; on my other monitor, it is 91%.

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.

Very helpful.

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

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.

How about just copying and pasting the entire contents into a new doocument?

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.

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?

hey

thank you very much, you made my day! :)

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

'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

Does not work for Word 2013

Thank you! You helped me solve a quirky problem to which I was concerned there was no solution.

Thanks, this tip saved the day and taught us something new.