Toggle between pagecolumns / pagefit view

eduzs · #6 05-06-2019, 06:09 PM

Solved! The problem was that the page columns / rows are not reset when the pagefit/bestfit adjustment is set.
So It is necessary to set it back again to 1 when toggling to PageFitBestFIt

Quote:

Sub Toggle_View_Zoom()

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

End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Toggle A4 and Custom size	gloub	Word VBA	4	01-20-2019 05:00 PM
Toggle Button	Squibble	Word VBA	2	06-11-2014 05:36 PM
Revision toggle without changing revision view?	New Daddy	Word VBA	6	04-15-2014 05:59 PM
Macro to toggle outline level	Jennifer Murphy	Word VBA	3	01-22-2014 11:22 PM
Toggle updates	dbugosh	Office	2	12-16-2010 07:54 AM