I created the following AutoOpen macro to correct the fact Word would not
save my wishes for default settings, unfourunatly Word is still stubborn and
will not allow me my default settings. What else can I do? (Word 2003)

Sub AutoOpen()
'
' AutoOpen Macro
' Macro recorded 6/2/2007 by Dennis Barnum
'
   With AutoCorrect
       .CorrectSentenceCaps = False
       .CorrectInitialCaps = True
       .CorrectSentenceCaps = False
       .CorrectDays = True
       .CorrectCapsLock = True
       .ReplaceText = True
       .ReplaceTextFromSpellingChecker = True
       .CorrectKeyboardSetting = False
       .DisplayAutoCorrectOptions = True
       .CorrectTableCells = True
   End With
   Application.DisplayStatusBar = True
   Application.ShowWindowsInTaskbar = True
   Application.ShowStartupDialog = False
   With ActiveWindow
       .DisplayHorizontalScrollBar = True
       .DisplayVerticalScrollBar = True
       .DisplayLeftScrollBar = False
       .StyleAreaWidth = InchesToPoints(0)
       .DisplayVerticalRuler = True
       .DisplayRightRuler = False
       .DisplayScreenTips = True
       With .View
           .ShowAnimation = True
           .Draft = False
           .WrapToWindow = False
           .ShowPicturePlaceHolders = False
           .ShowFieldCodes = False
           .ShowBookmarks = False
           .FieldShading = wdFieldShadingWhenSelected
           .ShowTabs = False
           .ShowSpaces = False
           .ShowParagraphs = False
           .ShowHyphens = False
           .ShowHiddenText = False
           .ShowAll = False
           .ShowDrawings = True
           .ShowObjectAnchors = False
           .ShowTextBoundaries = False
           .ShowHighlight = True
           .DisplayPageBoundaries = True
           .DisplaySmartTags = True
       End With
   End With
   With Options
       .Pagination = True
       .WPHelp = False
       .WPDocNavKeys = False
       .ShortMenuNames = False
       .RTFInClipboard = True
       .BlueScreen = False
       .EnableSound = False
       .ConfirmConversions = False
       .UpdateLinksAtOpen = True
       .SendMailAttach = True
       .MeasurementUnit = wdInches
       .AllowPixelUnits = False
       .AllowReadingMode = True
       .AnimateScreenMovements = True
       .VirusProtection = False
       .ApplyFarEastFontsToAscii = True
       .InterpretHighAnsi = wdHighAnsiIsHighAnsi
       .BackgroundOpen = False
       .AutoCreateNewDrawings = True
   End With
   Application.DisplayRecentFiles = True
   RecentFiles.Maximum = 4
   With ActiveDocument.Styles(wdStyleNormal).Font
       If .NameFarEast = .NameAscii Then
           .NameAscii = ""
       End If
       .NameFarEast = ""
   End With
   With ActiveDocument.PageSetup
       .LineNumbering.Active = False
       .Orientation = wdOrientPortrait
       .TopMargin = InchesToPoints(0.7)
       .BottomMargin = InchesToPoints(0.7)
       .LeftMargin = InchesToPoints(0.7)
       .RightMargin = InchesToPoints(0.7)
       .Gutter = InchesToPoints(0)
       .HeaderDistance = InchesToPoints(0.5)
       .FooterDistance = InchesToPoints(0.5)
       .PageWidth = InchesToPoints(8.5)
       .PageHeight = InchesToPoints(11)
       .FirstPageTray = wdPrinterDefaultBin
       .OtherPagesTray = wdPrinterDefaultBin
       .SectionStart = wdSectionNewPage
       .OddAndEvenPagesHeaderFooter = False
       .DifferentFirstPageHeaderFooter = False
       .VerticalAlignment = wdAlignVerticalTop
       .SuppressEndnotes = False
       .MirrorMargins = False
       .TwoPagesOnOne = False
       .BookFoldPrinting = False
       .BookFoldRevPrinting = False
       .BookFoldPrintingSheets = 1
       .GutterPos = wdGutterPosLeft
   End With
   WordBasic.ViewChanges
End Sub