With Options
    .ReplaceSelection = True
    .AllowDragAndDrop = True
    .AutoWordSelection = False
    .SmartCutPaste = False
    .Overtype = False
    .AutoFormatAsYouTypeApplyHeadings = False
    .AutoFormatAsYouTypeApplyBorders = False
    .AutoFormatAsYouTypeApplyBulletedLists = False
    .AutoFormatAsYouTypeApplyNumberedLists = False
    .AutoFormatAsYouTypeApplyTables = False
    .AutoFormatAsYouTypeReplaceQuotes = False
    .AutoFormatAsYouTypeReplaceSymbols = False
    .AutoFormatAsYouTypeReplaceOrdinals = False
    .AutoFormatAsYouTypeReplaceFractions = False
    .AutoFormatAsYouTypeReplacePlainTextEmphasis = False
    .AutoFormatAsYouTypeReplaceHyperlinks = False
    .AutoFormatAsYouTypeFormatListItemBeginning = False
    .AutoFormatAsYouTypeDefineStyles = False
    .AutoFormatApplyHeadings = False
    .AutoFormatApplyLists = False
    .AutoFormatApplyBulletedLists = False
    .AutoFormatApplyOtherParas = False
    .AutoFormatReplaceQuotes = False
    .AutoFormatReplaceSymbols = False
    .AutoFormatReplaceOrdinals = False
    .AutoFormatReplaceFractions = False
    .AutoFormatReplacePlainTextEmphasis = False
    .AutoFormatReplaceHyperlinks = False
    .AutoFormatPreserveStyles = False
    .AutoFormatPlainTextWordMail = False

' ************ also *******

    With Options
        .Pagination = True
        .WPHelp = False
        .WPDocNavKeys = False
        .ShortMenuNames = False
        .RTFInClipboard = True
        .BlueScreen = False
        .EnableSound = False
        .ConfirmConversions = True
        .UpdateLinksAtOpen = True
        .SendMailAttach = True
        .MeasurementUnit = wdInches
        .AnimateScreenMovements = True
        .VirusProtection = True
    End With
    Application.DisplayRecentFiles = True
    RecentFiles.Maximum = 9
End With

' ************** Tools options for the Window view are done differently ********
With ActiveWindow
    .DisplayHorizontalScrollBar = True
    .DisplayVerticalScrollBar = True
    .StyleAreaWidth = InchesToPoints(0)
    .DisplayScreenTips = False
    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
        .ShowHighlight = True
    End With
End With