Problem with zoom to "text width"

[b0x4it]

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:

    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.

[macropod]

Hi b0x4it,

Try:

With ActiveDocument.ActiveWindow.View.Zoom
  If .PageFit = wdPageFitTextFit Then
    .PageFit = wdPageFitFullPage
  Else
    .PageFit = wdPageFitTextFit
    Selection.GoTo what:=wdGoToBookmark, Name:="\sel"
  End If
End With

[b0x4it]

Thank you very much,

Do you have any explanation why this code does not work:

        ActiveDocument.ActiveWindow.View.Zoom.PageColumns = 2
        ActiveDocument.ActiveWindow.View.Zoom.PageRows = 1

until I change it to

        ActiveDocument.ActiveWindow.View.Zoom.PageColumns = 2
        ActiveDocument.ActiveWindow.View.Zoom.PageRows = 1
        ActiveDocument.ActiveWindow.View.Zoom.Percentage = 82

?

[macropod]

Hi b0x4it,

Possibly because the parameters you're trying to set conflict with each other and your monitor's abilities. As the interactions differ according to numerous variables (# horizontal pixels, # vertical pixels, physical screen size, etc), that I can't give a hard and fast answer.