I am not sure why this should be necessary. Word will open older documents
without such juggling, however the following macro saved in normal.dot
should do the trick:
Sub AutoOpen()
Options.DisableFeaturesbyDefault = False 'Disable features introduced after
Word 97
With ActiveDocument
.Compatibility(wdNoTabHangIndent) = False
.Compatibility(wdNoSpaceRaiseLower) = False
.Compatibility(wdPrintColBlack) = False
.Compatibility(wdWrapTrailSpaces) = False
.Compatibility(wdNoColumnBalance) = False
.Compatibility(wdConvMailMergeEsc) = False
.Compatibility(wdSuppressSpBfAfterPgBrk) = False
.Compatibility(wdSuppressTopSpacing) = False
.Compatibility(wdOrigWordTableRules) = False
.Compatibility(wdTransparentMetafiles) = False
.Compatibility(wdShowBreaksInFrames) = False
.Compatibility(wdSwapBordersFacingPages) = False
.Compatibility(wdLeaveBackslashAlone) = True
.Compatibility(wdExpandShiftReturn) = True
.Compatibility(wdDontULTrailSpace) = True
.Compatibility(wdDontBalanceSingleByteDoubleByteWidth) = True
.Compatibility(wdSuppressTopSpacingMac5) = False
.Compatibility(wdSpacingInWholePoints) = False
.Compatibility(wdPrintBodyTextBeforeHeader) = False
.Compatibility(wdNoLeading) = False
.Compatibility(wdNoSpaceForUL) = True
.Compatibility(wdMWSmallCaps) = False
.Compatibility(wdNoExtraLineSpacing) = False
.Compatibility(wdTruncateFontHeight) = False
.Compatibility(wdUsePrinterMetrics) = False
.Compatibility(wdSubFontBySize) = False
.Compatibility(wdWW6BorderRules) = False
.Compatibility(wdExactOnTop) = False
.Compatibility(wdSuppressBottomSpacing) = False
.Compatibility(wdWPSpaceWidth) = False
.Compatibility(wdWPJustification) = False
.Compatibility(wdLineWrapLikeWord6) = False
.Compatibility(wdShapeLayoutLikeWW8) = False
.Compatibility(wdFootnoteLayoutLikeWW8) = False
.Compatibility(wdDontUseHTMLParagraphAutoSpacing) = False
.Compatibility(wdDontAdjustLineHeightInTable) = True
.Compatibility(wdForgetLastTabAlignment) = False
.Compatibility(wdAutospaceLikeWW7) = False
.Compatibility(wdAlignTablesRowByRow) = False
.Compatibility(wdLayoutRawTableWidth) = False
.Compatibility(wdLayoutTableRowsApart) = False
.Compatibility(wdUseWord97LineBreakingRules) = False
.Compatibility(wdDontBreakWrappedTables) = False
.Compatibility(wdDontSnapTextToGridInTableWithObjects) = False
.Compatibility(wdSelectFieldWithFirstOrLastCharacter) = False
.Compatibility(wdApplyBreakingRules) = False
.Compatibility(wdDontWrapTextWithPunctuation) = False
.Compatibility(wdDontUseAsianBreakRulesInGrid) = False
.Compatibility(wdUseWord2002TableStyleRules) = False
.Compatibility(wdGrowAutofit) = False
End With
End Sub
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site
www.gmayor.com
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>