How to center a page horizontally?

[b0x4it]

I am trying to zoom in and then center the page by the following code but it doesn't work:



ActiveDocument.ActiveWindow.View.Zoom.Percentage = 250
ActiveWindow.ActivePane.HorizontalPercentScrolled = 50

Any idea?

[Charles Kenyon]

Are you trying to change the view or are you trying to make the text vertically centered on the page?

Or, are you trying to get the insertion point to a particular spot in the document?

[b0x4it]

I'm just trying to change the view!
Actually what I'm trying to achive is exactly equivalent to "Fit Visible" (Ctrl+3) in adobe reader.

Thanks in advance!

[b0x4it]

any solution?

[macropod]

Possibly something like:

Sub Test()
Dim lZoom As Long
With ActiveWindow
  'Ignore any errors
  On Error Resume Next
  'Reduce flickering while changing settings
  .Visible = False
  'Switch to a single view pane
  .View.SplitSpecial = wdPaneNone
  'Switch to Print Preview mode
  .View.Type = wdPrintView
  With .ActivePane.View.Zoom
    'Set for a 1-page view
    .PageColumns = 1
    'Initialize for best fit
    .PageFit = wdPageFitBestFit
    'Get the full-screen zoom
    lZoom = .Percentage
    'Set zoom % to 250% min
    If .Percentage < 250 Then .Percentage = 250
  End With
  'Center the page
  .ActivePane.HorizontalPercentScrolled = (250 - lZoom) / 5
  'Restore the window now that we're finished
  .Visible = True
End With
End Sub

[b0x4it]

Thanks for your reply, but it does not work!

[macropod]

Works for me ...

[b0x4it]

Could you explain the code a little bit? Especially .Percentage and lZoom and what they are defined for?

[macropod]

Originally Posted by b0x4it

Could you explain the code a little bit? Especially .Percentage and lZoom and what they are defined for?

Did you read the comments in the code? I'd have thought they made it apparent what was going on.

[Charles Kenyon]

Originally Posted by macropod

Works for me ...

On my laptop in Word 2010 it produces an overzoom to 250% when the correct zoom would be 150%.

When I substitute 150 for 250 throughout the procedure, it works on my machine.

[macropod]

I used 250% only because that's what b0x4it seems to require (see the first post in this thread).

[b0x4it]

Originally Posted by macropod

Possibly something like:

Sub Test()
Dim lZoom As Long
With ActiveWindow
  'Ignore any errors
  On Error Resume Next
  'Reduce flickering while changing settings
  .Visible = False
  'Switch to a single view pane
  .View.SplitSpecial = wdPaneNone
  'Switch to Print Preview mode
  .View.Type = wdPrintView
  With .ActivePane.View.Zoom
    'Set for a 1-page view
    .PageColumns = 1
    'Initialize for best fit
    .PageFit = wdPageFitBestFit
    'Get the full-screen zoom
    lZoom = .Percentage
    'Set zoom % to 250% min
    If .Percentage < 250 Then .Percentage = 250
  End With
  'Center the page
  .ActivePane.HorizontalPercentScrolled = (250 - lZoom) / 5
  'Restore the window now that we're finished
  .Visible = True
End With
End Sub

This also works for me but just on my laptop with 15.1" monitor. It does nothing on my 27" monitor. How can I relate this code to the size of the screen instead of a fix number (250% in this code)?

[macropod]

Originally Posted by b0x4it

This also works for me but just on my laptop with 15.1" monitor. It does nothing on my 27" monitor. How can I relate this code to the size of the screen instead of a fix number (250% in this code)?

Simple! Delete:

Dim lZoom As Long

and:

'Get the full-screen zoom
lZoom = .Percentage
'Set zoom % to 250% min
If .Percentage < 250 Then .Percentage = 250

and:

'Center the page
.ActivePane.HorizontalPercentScrolled = (250 - lZoom) / 5

[b0x4it]

Originally Posted by macropod

Simple! Delete:

Dim lZoom As Long

and:

'Get the full-screen zoom
lZoom = .Percentage
'Set zoom % to 250% min
If .Percentage < 250 Then .Percentage = 250

and:

'Center the page
.ActivePane.HorizontalPercentScrolled = (250 - lZoom) / 5

If you delete these codes, then how it scrolls horizontally to the centre?

[macropod]

Have you tried it?