Word 2003 has a bad habit of losing some of its settings. You can control
the ones that offend with auto macros. The following are from my own PC. You
can delete the settings that you don't need or leave them as you wish.
Sub AutoNew()
ActiveWindow.ActivePane.DisplayRulers = True
ActiveWindow.ActivePane.View.ShowAll = False
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
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
CommandBars("Forms").Visible = False
End Sub
Sub AutoOpen()
ActiveWindow.Caption = ActiveDocument.FullName
ActiveWindow.ActivePane.DisplayRulers = True
ActiveWindow.ActivePane.View.ShowAll = False
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
With ActiveWindow.View
.Type = wdPrintView
.Zoom.Percentage = 100
.FieldShading = wdFieldShadingWhenSelected
.ShowFieldCodes = False
.DisplayPageBoundaries = True
End With
End Sub
Sub AutoExec()
CommandBars("Reviewing").Visible = False
CommandBars("Drawing").Visible = False
CommandBars("Forms").Visible = False
CommandBars("Mail Merge").Visible = False
Application.OnTime _
When:=Now + TimeValue("00:00:01"), Name:="CodesOff"
End Sub
Sub CodesOff()
On Error GoTo oops
ActiveWindow.ActivePane.View.ShowAll = False
oops:
End Sub
You may need to add
ActiveDocument.TrackRevisions = False
to the autoopen macro
http://www.gmayor.com/installing_macro.htm
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site
www.gmayor.com
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>