Microsoft Office Forums - View Single Post

macropod · 01-20-2016, 10:22 PM

Your profile says you're using the same Word version and OS as me, but it's clear from your screenshot you're not using Word 2010. That explains why you don't see the 'One Page' option. Please correct your profile.

That said, the following macros, added to your Normal template's 'ThisDocument' module, should take care of the display issues for any documents you subsequently open/create. As coded, the macro zooms the document to whichever is the lesser of the nearest 10% zoom increment that fits the screen and the preferred zoom, which is managed by the line:
Const lZoom As Long = 110
This sets the preferred zoom % to 110%. If you prefer something else, change the 110 to suit.

Code:

Private Sub Document_New()
Call Document_Open
End Sub
 
Private Sub Document_Open()
'Preferred zoom %
Const lZoom As Long = 110
With ActiveWindow
  'Ignore any errors
  On Error Resume Next
  'Reduce flickering while changing settings
  .Visible = False
  'Switch to a single view pane
  .View.SplitSpecial = wdPaneNone
  'Switch to Normal mode
  .View.Type = wdNormalView
  With .ActivePane.View.Zoom
    'Set for a 1-page view
    .PageColumns = 1
    'Initialize for best fit
    .PageFit = wdPageFitBestFit
    'Round down to nearest 10%
    .Percentage = Int(.Percentage / 10) * 10
    'Test zoom % and reduce to 120% max
    If .Percentage > lZoom Then .Percentage = lZoom
  End With
  'Switch to Print Preview mode
  .View.Type = wdPrintView
  With .ActivePane.View.Zoom
    'Set for a 1-page view
    .PageColumns = 1
    'Initialize for best fit
    .PageFit = wdPageFitBestFit
    'Round down to nearest 10%
    .Percentage = Int(.Percentage / 10) * 10
    'Test zoom % and reduce to 120% max
    If .Percentage > lZoom Then .Percentage = lZoom
  End With
  'Display the Rulers
  .ActivePane.DisplayRulers = True
  'Restore the window now that we're finished
  .Visible = True
End With
End Sub