Set Auto Correct options

[island17]

Hello all
Is there a way to set auto correct options when word launches. We want to shut off some options without visiting everyones machine.

Thanks in advance
Russ

[Marcster]

Use 'With AutoCorrect' to set/unset the option.
For example:

Sub Private Sub Document_Open()
    With AutoCorrect
        .CorrectInitialCaps = False
        .CorrectSentenceCaps = True
        .CorrectDays = True
        .CorrectCapsLock = True
        .ReplaceText = True
        .ReplaceTextFromSpellingChecker = True
        .CorrectKeyboardSetting = False
    End With
End Sub

You need to place this in the ThisDocument module in the VBE.
Or rename as AutoExec in Normal for it to fire each time Word opens.

HTH,

Marcster.

[island17]

Fabulous, I will give it a tryl.


Thanks
Russ

[island17]

Thanks again it worked great. One more question. I need to shut off "Ordinals" in the "autoformat as you type" tab as well, but can't find the command.

[island17]

I am going to mark this one solved. I found what I was looking for. Thanks for the help. Here is the code for the last piece.

With Options
    .UpdateLinksAtPrint = True
    .PrintDrawingObjects = True
    .AutoFormatAsYouTypeApplyHeadings = False
    .AutoFormatAsYouTypeApplyBorders = False
    .AutoFormatAsYouTypeApplyBulletedLists = False
    .AutoFormatAsYouTypeApplyNumberedLists = False
    .AutoFormatAsYouTypeApplyTables = False
    .AutoFormatAsYouTypeReplaceQuotes = True
    .AutoFormatAsYouTypeReplaceSymbols = True
    .AutoFormatAsYouTypeReplaceOrdinals = False
    .AutoFormatAsYouTypeReplacePlainTextEmphasis = True
    .AutoFormatAsYouTypeFormatListItemBeginning = False
    .AutoFormatAsYouTypeDefineStyles = False
    .AutoFormatApplyHeadings = False
    .AutoFormatApplyLists = False
    .AutoFormatApplyBulletedLists = False
    .AutoFormatApplyOtherParas = False
    .AutoFormatReplaceQuotes = True
    .AutoFormatReplaceSymbols = True
    .AutoFormatReplaceOrdinals = False
    .AutoFormatReplacePlainTextEmphasis = False
    .AutoFormatPreserveStyles = True
    .AutoFormatPlainTextWordMail = True
End With