Number of Pages Visible on the Screen

[VBorNotVB]

I have a routine that sets ActiveWindow.ActivePane.View.Zoom.PageColumns (# of page columns to fit in the screen for a document.

Word doesn't always set the zoom percentage to the maximum value (the value which is 1% below the point Word would have to show one less page). I often find myself having to increase the zoom manually to maximize the visibility of the pages in the document.

The following routine would accomplish that only if I could figure out what goes inside the function NumberOfPagesVisible(). All help is appreciated.

Note that .PagesColumns does not change even if the user increases the zoom percentage to the point the # of pages actually displayed are less than .PageColumns!

With ActiveWindow.ActivePane.View.Zoom
While NumberOfPagesVisible = .PageColumns
.Percentage = .Percentage + 1


Wend
.Percentage = .Percentage - 1
End With

Function PagesVisibleInScreen()
End Function