I have Word 2003 through 2016 installed on my PC. Word 2010 throughout 2016 share a common Normal.dotm.
I've often had troubles getting Word to start or open new documents in my preferred Zoom. Some time ago I added a class modules to ensure all documents new documents and documents opened display with my preferred some.
I have this code in a standard module of my Normal.dotm template:
Private oCls As clsNormal
Sub AutoExec()
Set oCls = New clsNormal
End Sub
Sub SetVeiwAndZoom()
On Error Resume Next
ActiveWindow.View.Type = wdPrintView
If Err.Number <> 0 Then Documents.Add
On Error GoTo 0
With ActiveWindow.View.Zoom
.PageColumns = 1
.PageFit = wdPageFitBestFit
End With
Selection.MoveUp Unit:=wdScreen, Count:=1
End Sub
I have this code in the class module:
Private WithEvents mWordApp As Word.Application
Private Sub Class_Initialize()
Set mWordApp = Word.Application
MyMacros.SetVeiwAndZoom
End Sub
Private Sub mWordApp_DocumentOpen(ByVal Doc As Document)
MyMacros.SetVeiwAndZoom
End Sub
Private Sub mWordApp_NewDocument(ByVal Doc As Document)
MyMacros.SetVeiwAndZoom
End Sub
This method works most of the time but Word will always open at 10% zoom under the following conditions:
If I have an instance of Word 2010 opened and open a new instance or Word 2010, the new blank document displayed in the new instance is displayed at 10% zoom. The same thing happens if I have an instance of Word 2013 opened and open a new instance of Word
2013. The same for Word 2016.
Does anyone know why this happens or how to prevent it? I have opened my Normal.dotm hundred times or more to ensure it opens and is set to the proper zoom but that doesn't help.
Thanks.