Set Auto Correct options

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:hi:

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

Code:

---

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.

Fabulous, I will give it a tryl.


Thanks
Russ

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.

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.

Code:

---

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

---