is there a setting to force documents to open at zoom = 100%?

[JP]

I find it bothersome to open documents and have to always change their zoom
level to 100%. I have tried resizing my Word window so that they would open
at this level, but that does not always work. Is there a
setting/default/option?

 

[Greg Maxey]

I use the following bit of VBA in stored in my Normal template to alwasy
open documents in PrintView and zoomed to best fit. I'm sure you should be
able to adapt it to your specific needs.


Sub AutoOpen()
ActiveWindow.Caption = ActiveDocument.FullName
With ActiveWindow.View
.Type = wdPrintView
.Zoom.PageFit = wdPageFitBestFit
End With

 

[JP]

Thanks for your suggestion. I wish I knew about this discussion group
before, great resource!

 

[Graham Mayor]

That could be why your templates open for me at 139%
Changing
..Zoom.PageFit = wdPageFitBestFit
to
..Zoom.Percentage = 100
would set the zoom to 100%

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[tfulcher]

Greg, I am able to get this script into my normal.dot template, but I had to add an "End Sub" at the end of it. I have a problem when I open any document with this script in my normal.dot file. I get an error message that says "Object Variable or With Block Variable Not Set". Can you tell me what I'm doing wrong?


Sub AutoOpen()
ActiveWindow.Caption = ActiveDocument.FullName
With ActiveWindow.View
.Type = wdPrintView
.Zoom.PageFit = wdPageFitBestFit
End With


--