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
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>