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