Sub Macro1()
'
' Macro1 Macro
'
'
With Options
.AutoFormatAsYouTypeApplyHeadings = False
.AutoFormatAsYouTypeApplyBorders = True
.AutoFormatAsYouTypeApplyBulletedLists = False
.AutoFormatAsYouTypeApplyNumberedLists = False
.AutoFormatAsYouTypeApplyTables = True
.AutoFormatAsYouTypeReplaceQuotes = True
.AutoFormatAsYouTypeReplaceSymbols = True
.AutoFormatAsYouTypeReplaceOrdinals = True
.AutoFormatAsYouTypeReplaceFractions = False
.AutoFormatAsYouTypeReplacePlainTextEmphasis = False
.AutoFormatAsYouTypeReplaceHyperlinks = True
.AutoFormatAsYouTypeFormatListItemBeginning = True
.AutoFormatAsYouTypeDefineStyles = False
.TabIndentKey = True
.AutoFormatAsYouTypeApplyFirstIndents = False
.AutoFormatAsYouTypeApplyDates = False
.AutoFormatAsYouTypeMatchParentheses = True
.AutoFormatAsYouTypeInsertOvers = True
.AutoFormatAsYouTypeDeleteAutoSpaces = False
End With
With AutoCorrect
.CorrectInitialCaps = False
.CorrectSentenceCaps = False
.CorrectDays = False
.CorrectCapsLock = False
.ReplaceText = False
.ReplaceTextFromSpellingChecker = False
.CorrectKeyboardSetting = False
.DisplayAutoCorrectOptions = True
.CorrectTableCells = False
End With
With Options
.AutoFormatApplyHeadings = True
.AutoFormatApplyLists = False
.AutoFormatApplyBulletedLists = False
.AutoFormatApplyOtherParas = False
.AutoFormatReplaceQuotes = True
.AutoFormatReplaceSymbols = True
.AutoFormatReplaceOrdinals = True
.AutoFormatReplaceFractions = False
.AutoFormatReplacePlainTextEmphasis = True
.AutoFormatReplaceHyperlinks = True
.AutoFormatPreserveStyles = False
.AutoFormatPlainTextWordMail = True
.AutoFormatApplyFirstIndents = True
.AutoFormatMatchParentheses = True
.AutoFormatDeleteAutoSpaces = True
.AutoFormatReplaceFarEastDashes = True
End With
Options.LabelSmartTags = False
End Sub