CorrectKeyboardSetting Property Example
This example displays a dialog box where the user can choose whether or not Word automatically transposes foreign words to their native alphabets.
x = MsgBox("Do you want Microsoft Word to tranpose " _
& "foreign words to their native alphabet?", _
vbYesNo
If x = vbYes Then
Application.CheckLanguage = True
AutoCorrect.CorrectKeyboardSetting = True
MsgBox "Automatic keyboard correction enabled!"
End If