#1
|
|||
|
|||
Number of Pages Visible on the Screen
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 |
#2
|
|||
|
|||
You may want to take a look at Jay Freedman's view utilities:
The Macro Zone - Jay Freedman, MVP |
#3
|
|||
|
|||
Thanks Charles. I'll check them out!
|
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Number Pages - not total pages, but actual pages. | Kiminator321 | Word | 8 | 04-29-2020 03:07 PM |
for visible cells (filtered), how find value lowest than 4.00 and return the cell number | murfy69 | Excel | 6 | 08-03-2017 12:03 AM |
Why page slider not with 2 pages on screen? | Alpina | Word | 1 | 04-13-2013 12:01 AM |
Some info only visible in print preview or full screen view | Cody_Anderson | Word | 2 | 12-15-2010 01:29 PM |
text not visible in a number of emails | jbrad | Outlook | 0 | 07-06-2010 03:44 PM |