Toggle between pagecolumns / pagefit view

eduzs · #1 05-05-2019, 07:04 PM

Hello!
I have this code that is toggle between pagecolumns / pagefit view.
But it is not working properly.
It only works the first time it runs.
Any sugestions? Thanks.

Code:

Sub View_Zoom_Alternate()

If ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit Then
    With ActiveWindow.ActivePane.View.Zoom
        .PageColumns = 5
        .PageRows = 2
    End With
Else
    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