Solved: 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:
[vba]
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
[/vba]
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