Microsoft Office Forums - View Single Post - [Solved] Problem with zoom to "text width"

b0x4it · 05-28-2011, 07:44 AM

I have written a simple code to switch between "whole page" and "text width" zooms and it works, but the problem is that if the cursor is at the end of the page, running my code switch to the "text width" by jumps to the first of the current page. How can I force it to switch to the "text width" view of where the cursor is now?

This is the code:

Code:

    If ActiveDocument.ActiveWindow.View.Zoom.PageFit = wdPageFitTextFit Then
        ActiveDocument.ActiveWindow.View.Zoom.PageFit = wdPageFitFullPage
    Else
        ActiveDocument.ActiveWindow.View.Zoom.PageFit = wdPageFitTextFit
    End If

I appreciate your reply.