Problem with zoom to "text width"

b0x4it · #1 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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
"contents" width sizing?	dark86	Word	4	01-24-2013 11:11 AM
Wierd symbols inplace of "space", "indentation" etc	aka.bhagvanji	Word	5	02-16-2012 11:50 AM
Partial highlighting of text in a row in "Final Showing Markup" setting	Redpoint	Word Tables	4	03-11-2011 04:29 PM
"Microsoft Excel Application" missing in the "Component Services" on win08	sword.fish	Excel	0	02-26-2010 02:09 PM
merge field formatting problem with "text to be inserted before"	wissam	Mail Merge	0	12-13-2009 12:50 AM