Centering the page in center of your monitor

Anonymous

How do I center a page in the center of my monitor? I go to view > 1 page, but if I do that, although the page is centered, as soon as I zoom in, the entire page is set off to the left, as if it were in a 2 page view. I want to fix my view at one page, centered in the middle of my screen, with any zoom level I like.

using msword 2010, w7 64, 1920x1080 monitor

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments

Answer accepted by question author

Anonymous

I learn something new about Word every day ...

I have to go out and can't check this properly at the moment (and the behaviour seems a little odd at first glance) but there is a setting in VBA - Zoom.PageColumns - that (partially) controls what you want. I will dig a little further on my return.

0 comments

65 additional answers

Paul Edstein 82,871 Reputation points Volunteer Moderator

2011-05-02T09:19:27+00:00

Hi Stefan

All you'd need is for the AutoNew macro to call the AutoOpen macro - no need to duplicate the code. I actually have a 'Document_New' macro in the Normal template's 'This Document' module coded that way:

Private Sub Document_New()

Call AutoOpen

End Sub
Was this answer helpful?

0 comments No comments
Stefan Blom 352.7K Reputation points MVP Volunteer Moderator

2011-05-02T08:37:41+00:00

Thanks for sharing your code.

I'd imagine that a similar AutoNew macro would be helpful as well (if you don't trust that all the templates that you are using have the proper settings).
Was this answer helpful?

0 comments No comments
Paul Edstein 82,871 Reputation points Volunteer Moderator

2011-05-01T21:39:22+00:00

But if you want to force this setting on all documents, ones that you create as well as those you receive from others, a couple of auto macro surely would be helpful?

Yes, that could be helpful (though only one macro is needed). I use one on my own system:

Sub AutoOpen()

With ActiveWindow

'Reduce flickering while changing settings

.Visible = False

'Switch to Print Preview mode

If .View.SplitSpecial = wdPaneNone Then

    .ActivePane.View.Type = wdPrintView

Else

    .View.Type = wdPrintView

End If

With .ActivePane.View.Zoom

    'Set for a 1-page view

    .PageColumns = 1

    'Initialize for best fit

    .PageFit = wdPageFitBestFit

    'Test zoom % and reduce to 125% max

    If .Percentage > 125 Then .Percentage = 125

End With

'Restore the window now that we're finished

.Visible = True

End With

End Sub

The macro I use actually has a couple more lines, for displaying the document's path in the title bar and for displaying the ruler. As you can see, I don't blindly force documents to a particular percentage if they won't display on screen at that zoom level (eg landscape or over-sized documents).
Was this answer helpful?

0 comments No comments
Paul Edstein 82,871 Reputation points Volunteer Moderator

2011-05-01T21:28:52+00:00

Hi Stefan,

Yes, that is true (though only one auto macro is needed. I use one myself:

Sub AutoOpen()

With ActiveWindow

'Reduce flickering while changing settings

.Visible = False

'Switch to Print Preview mode

If .View.SplitSpecial = wdPaneNone Then

    .ActivePane.View.Type = wdPrintView

Else

    .View.Type = wdPrintView

End If

With .ActivePane.View.Zoom

    'Set for a 1-page view

    .PageColumns = 1

    'Initialize for best fit

    .PageFit = wdPageFitBestFit

    'Test zoom % and reduce to 125% max

    If .Percentage > 125 Then .Percentage = 125

End With

'Restore the window now that we're finished

.Visible = True

End With

End Sub

The version I use has a couple of extra lines (not shown above) to ensure the rulers are displayed and to show the document's name & path in the title bar.
Was this answer helpful?

0 comments No comments