zoom Default

[Guest]

Where do you set the default for zoom in Word 2003?

 

[Suzanne S. Barnhill]

See http://word.mvps.org/FAQs/General/SaveViewAndZoom.htm

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[Chuck Davis]

Suzanne,
I live in an age-restricted community of 55+ folks. Most
Word users in our current population of nearly 10,000 folks
could benefit from these settings.
However, those that could benefit the most probably
couldn't follow the instructions.

Our Computer Club volunteers perform in-home service on
over 600 homes each year to do what we can to make their
usage of their computers more satisfactory. We may have to
add another item to our tool bags.

I know that Office is designed for younger office workers,
but the older folks have the wherewithall to buy Office on
retirement as they are familiar with it.

Can someone write a small program that could be loaded on a
USB Flash drive for use in these situations and loaded on
their desktops?

 

[Suzanne S. Barnhill]

Changing the Zoom and pressing Spacebar, Backspace, and Ctrl+S is not
especially tricky, so I assume the difficulty is in finding Normal.dot?
Microsoft is definitely not helping with this by making it harder and harder
to find, especially since the path varies from one OS to another and can
also be customized by the user. Probably the easiest way to find it is just
to use Windows' own Find/Search feature. When it is found, so long as you
don't double-click on it but instead right-click and choose Open, you will
be okay.

I emphasize, however, that this procedure should not be necessary. Word
should remember the zoom in effect when you closed Word. If it doesn't, the
likelihood that this procedure will help diminishes with each version of
Word. It was quite dependable in Word 97 (for which that article was
written). For Word 2000 and 2002, it became more iffy, and for Word 2003, I
wouldn't even attempt it. To make Word 2003 "save" any settings reliably,
you need an AutoExec macro (Graham Mayor from time to time provides such in
these NGs), and I suspect that would be an even greater hurdle for your
users.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[Graham Mayor]

I agree. I don't think a macro solution would help users who are not
prepared to learn the basics of using Word. *I* am over 55 too and I haven't
stopped learning. Age is no excuse. There are stupid people of all ages.
There are also plenty who will let mugs do things for them that they are
quite capable of doing themselves.

But if you want the macro solution (and you can carry the macro in a
template on that flash drive to transfer to Normal.dot using the organizer)
then the following set of macros force most of the settings that people find
Word 2003 is unwilling to retain. The zoom setting is fixed here at 100% in
Print Layout view. The alternative line for Normal view is included but
inactive.

Sub AutoNew()
ActiveWindow.ActivePane.DisplayRulers = True
ActiveWindow.ActivePane.View.ShowAll = False
With ActiveWindow.View
.Type = wdPrintView
'.Type = wdNormalView
.Zoom.Percentage = 100
.FieldShading = wdFieldShadingWhenSelected
.ShowFieldCodes = False
.DisplayPageBoundaries = True
End With
CommandBars("Reviewing").Visible = False
CommandBars("Drawing").Visible = False
End Sub

Sub AutoOpen()
ActiveWindow.Caption = ActiveDocument.FullName
ActiveWindow.ActivePane.DisplayRulers = True
ActiveWindow.ActivePane.View.ShowAll = False
With ActiveWindow.View
.Type = wdPrintView
'.Type = wdNormalView
.Zoom.Percentage = 100
.FieldShading = wdFieldShadingWhenSelected
.ShowFieldCodes = False
.DisplayPageBoundaries = True
End With
End Sub

Sub AutoExec()
CommandBars("Reviewing").Visible = False
CommandBars("Drawing").Visible = False
Application.OnTime _
When:=Now + TimeValue("00:00:03"), Name:="CodesOff"
End Sub

Sub CodesOff()
On Error GoTo oops
ActiveWindow.ActivePane.View.ShowAll = False
oops:
End Sub


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>