Microsoft Office Forums - View Single Post - In Word 2003, how do I get the view to automatically show a single page?

Stefan Blom · 09-07-2025, 10:46 AM

Something like this would do the trick:

Code:

Sub SetSinglePageView()

On Error GoTo errhandler
ActiveWindow.View.Type = 3 'Print Layout
ActiveWindow.View.Zoom.PageColumns = 1
ActiveWindow.View.Zoom.Percentage = 100   'specify the zoom you want
errhandler:
Exit Sub
End Sub

You'd have to add the macro to the Normal template and also call the macro from Sub AutoOpen() and Sub AutoNew() in the Normal template.