Microsoft Office Forums - View Single Post - [Solved] Toggle between pagecolumns / pagefit view

Guessed · 05-06-2019, 07:06 PM

Just to clean it up a little now you've solved it

Code:

Sub Toggle_View_Zoom()
  With ActiveWindow.ActivePane.View.Zoom
    If .PageFit = wdPageFitBestFit Then
      .PageColumns = 5
      .PageRows = 2
    Else
      .PageColumns = 1
      .PageRows = 1
      .PageFit = wdPageFitBestFit
    End If
  End With
End Sub