How to Open All Documents in "ONE PAGE" View?

[Jim In Minneapolis]

How can I change the following code in my normal.dotm, to make each new
document open in "ONE PAGE" view . . instead of the present 100% view?

Sub AutoNew()
ActiveWindow.View.Type = 3
ActiveWindow.View.Zoom.Percentage = 100
End Sub


Thanks!

 

[StevenM]

How about:

Sub AutoNew()
ActiveWindow.View.Type = wdPrintView
ActiveWindow.View.Zoom.PageFit = wdPageFitFullPage
End Sub

 

[Jim In Minneapolis]

Great, Steve.

Right on the money.

I appreciate your help.

Thanks

Jim