To force a "Page Width" zoom on all documents, you'll need a couple of auto macros in the Normal template:
Code:
Sub AutoOpen()
ActiveWindow.View.Type = 3
ActiveWindow.View.Zoom.PageFit = wdPageFitBestFit
End Sub
Sub AutoNew()
ActiveWindow.View.Type = 3
ActiveWindow.View.Zoom.PageFit = wdPageFitBestFit
End Sub
For assistance, see http://www.gmayor.com/installing_macro.htm.
__________________
Stefan Blom
Microsoft Word MVP
Microsoft 365 apps for business
Windows 11 Professional
Last edited by Stefan Blom; 01-28-2012 at 11:25 AM.
|