Microsoft Office Forums - View Single Post

macropod · 12-02-2016, 04:49 PM

You could change Word's own document zooming to enlarge what you see on screen. For example, if you add the following two macros to Word's Normal template, most documents that you create or open will automatically zoom to fit the page width to the screen width (up to a max 150% - which you can change). The macro also sets the view to the Print Layout view and forces Word to display the rulers.

For PC macro installation & usage instructions, see: http://www.gmayor.com/installing_macro.htm
For Mac macro installation & usage instructions, see: http://word.mvps.org/Mac/InstallMacro.html

Code:

Private Sub Document_New()
Call Document_Open
End Sub

Private Sub Document_Open()
'Preferred zoom %
Const lZoom As Long = 150
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
    'Initialize for best fit
    .PageFit = wdPageFitBestFit
    'Round down to nearest 10%
    .Percentage = Int(.Percentage / 10) * 10
    'Test zoom % and reduce to lZoom% 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 lZoom% 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